Não grava no arquivo.
procedure TfTransferencia.ExecutaClick(Sender: TObject);
var
Num: SmallInt;
vID, xID: String;
reg: integer;
begin
screen.Cursor := -11;
dm1.IBDbd.Close;
dm1.IBDbd.DatabaseName:= Flb.FileName;
dm1.IBDbd.Open;
dm1.IBDOrigem.Connected := True;
dm1.IBOrigem.Open;
dm1.IBOrigem.IndexName := 'IDConjunto';
dm1.IBOrigem.First;
vID := edit1.Text; //(vID,'A','0',6);
dm1.IBRelatorios.Active := False;
dm1.IBT.StartTransaction;
WHILE not dm1.IBOrigem.Eof do
begin
xID := dm1.IBOrigem.FieldByName('IDConjunto_AMADO').AsString;
While (dm1.IBOrigem.FieldByName('IDConjunto_AMADO').AsString = xID)and(not
dm1.IBOrigem.Eof) do
begin
dm1.IBRelatorios.Active := True;
dm1.IBRelatorios.Insert;
dm1.IBRelatorios.FieldByName('Cidadestado_AMADO').asString :=
dm1.IBOrigem.FieldByName('Cidadestado_AMADO').asString;
dm1.IBRelatorios.FieldByName('Ano_AMADO').asString :=
dm1.IBOrigem.FieldByName('Ano_AMADO').asString;
dm1.IBRelatorios.FieldByName('Relatorio_AMADO').asString :=
dm1.IBOrigem.FieldByName('Relatorio_AMADO').asString;
dm1.IBRelatorios.FieldByName('Pergunta_AMADO').asString :=
dm1.IBOrigem.FieldByName('Pergunta_AMADO').asString;
dm1.IBRelatorios.FieldByName('Resposta_AMADO').asString :=
dm1.IBOrigem.FieldByName('Resposta_AMADO').asString;
dm1.IBRelatorios.FieldByName('IDConjunto_AMADO').asString := vID;
dm1.IBRelatorios.Post;
dm1.IBRelatorios.Active := True;
dm1.IBOrigem.Next;
end;
vID := inttostr(strtoint(vID)+1);
vID := Codifica(vID,'A','0',6);
end;
dm1.IBT.Commit;
dm1.IBDbd.Close;
dm1.IBDbd.Open;
screen.Cursor := -2;
end;
Clovis Machado Ferreora - Dourado(SP)
Que o Grande Arquiteto do Universo
nos Ampare
[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
