Duplicar registro e modificar a copia!

20/02/2019

0

Bom dia /tarde Galera
Não sei se alguém pode me ajudar to com um problema que ta me tirando o sono
estou fazendo uma aplicação onde na tenho um cadastro de remetente, destinatário e nota fiscal
na hora de gravar essas informações precisa duplica o registro ate quantidade de registro seja igual a quantidade de volume e o campo volume recebe
a quantidade / quantidade total .
ai começa o problema não consigo fazer o loop que ele repita ate o fim ele so duplica a primeira vez

estou usando um banco de dados access, e firedac para fazer a comunicação

procedure TForm1.clonar;
  begin
tbrecebe.First;
while not tbrecebe.Eof do
begin                                        
  tb_copia.Append;
  tb_copia.CopyRecord(tbrecebe);
  tb_copia.Post;

  tbrecebe.Next;
end;
end;
 
procedure TForm1.Btsalvar(Sender: TObject);
var
x:double;
y:double;

begin
x:=StrToFloat( nt_volume.Text) ;
if x >= 1 then
begin
y:=1;
tbrecebe.FieldByName('volume_imp').Value:= (floattostr (y) + '/' +floattostr( x )) ;
postar;
repeat
     begin
     y:=y+1;
     clonar;
     tb_copia.Edit;
     tb_copia.FieldByName('volume_imp').Value:= (floattostr (y) + '/' +floattostr( x )) ;
     tb_copia.Post;


     end;
     until  y = x   ;
    desabilitar; //desabilita os edites

end;
end;

Joao Victor

Joao Victor

Responder

Posts

20/02/2019

Hélio Devmedia

Olá João Vitor, tudo bem?

João, não foi possível compreender bem o seu código somente com o que você postou, mas sugiro que você trate bem a questão da chave primária em tb cópia, caso contrário irá dar erro logo que tentar copiar pela segunda vez...

Espero ter ajudado. Qualquer coisa pode nos contactar...

Um forte abraço e fique com Deus.
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar