Duplicar registro e modificar a copia!

20/02/2019

18

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;

Responder

Posts

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar