ActiveDelphi

[zanba]

Tenho um Form de saída, nele tenho 2 tabelas à saida_cab e tenho a saida_item!(Uso o TFDquery) para cada tabela !

Porém, depois de eu salva uma saída ! eu busco ela normal.
Agora depois que eu busco ela , eu quero copiar tudo que esta na saida menos o Código da saida e inserir um novo registro na tabela com os dados clonados da saída anterior!


Será que alguém aí possa me ajuda?
Abraços

[setsystem.info]

[zanba]

[joemil]

veja este post se ajuda

https://www.devmedia.com.br/forum/duplicar-registro-e-modificar-a-copia/600656
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[ric_rio2]

Bom dia zanba.. tudo certinho??
Cara da para fazer isso sim.. tipo..

[zanba]

[joemil]

[zanba]

se for FireDAC ele ja tem a funcao CopyRecord, veja o link q enviei acima[/quote]

Sim Joemil!
Estou vendo agora !

[zanba]

[zanba]

[ric_rio2]

Boa tarde zanba.
Cara na realidade o que o código que sugeri faz é o seguinte..:
Abre(open) uma query Qy_Pai.. Select * from TABELA

Ai no Primeiro REGISTRO LE campo a campo e appenda na tabela Qy_AUX ( que é a mesma tabela que o pai )
Ao Final de ler todos os campos, ALTERA o ID do novo registro que esta na tabela Qy_Aux.. pois não pode ter o mesmo id do que a tabela Qy_PAI...
Apôs ler todos os campos do REGISTRO DO PAI, se faz a mesma lógica para os FILHOS.
Dai se da o NEXT na Qy_PAI. E começa tudo novamente..

Como ele esta lendo todos os campos da QY_PAI e procurando os mesmos campos no QY_AUX, se o QY_AUX estiver com o SELECT * FROM PAI, sem os joins, e tiver todos os campos necessarios no QY_PAI que tem JOIN, então,
tudo ocorrerá corretamente caso os campos existam nos dois objetos.
Eu sujeriria que você fizesse o seguinte..:

[zanba]

Então Ric_rio2!

Veja se é assim !

Coloquei mais 2 query uma para espelho da minha tabela saida_cab e a outra para espelho da minha tabela saida_item! Seria isso?
ficou assim Q_saidacabproduto = Q_aux e minha Q_saidaitem = Q_aux_item! Seria isso ai que vc me passou?

Código ficou assim;

begin
Q_saidacabproduto.Close;
Q_saidacabproduto.Sql.Clear;
Q_saidacabproduto.Sql.Add('select * from saida_cab where id_saida_cab = :id_saida_cab ');

Q_Aux.Close;
Q_Aux.Sql.Clear;
Q_Aux.Sql.Add('select * from saida_cab where id_saida_cab is null ');
Q_Aux.Open;

Q_saidacabproduto.First;
While not Q_saidacabproduto.Eof do
begin
Q_saidacabproduto.Close;
Q_saidacabproduto.ParamByName('id_saida_cab').AsInteger:= Q_saidacabproduto.FieldByName('id_saida_cab').AsInteger;
Q_saidacabproduto.Open;
For A:= 0 To Q_saidacabproduto.FieldCount - 1 do
begin
For B:= 0 To Q_Aux.FieldCount - 1 do
begin
If Q_saidacabproduto.Fields[A].FieldName = Q_Aux.Fields[B].FieldName then
begin
Q_Aux.Fields[B].AsValue:= Q_saidacabproduto.Fields[A].AsValue;
end;
end;
end;


Q_Aux.FieldByName('id_saida_cab').AsInteger:= Q_saidacabproduto.RecordCount +1;
//----------------------------------- filha-----------------------------------------

Q_saidaitem.Close;
Q_saidaitem.Sql.Clear;
Q_saidaitem.Sql.Add('select * from saida_cab where id_saida_cab = :id_saida_cab ');

Q_aux_item.Close;
Q_aux_item.Sql.Clear;
Q_aux_item.Sql.Add('select * from saida_cab where id_saida_cab is null ');
Q_aux_item.Open;

Q_saidaitem.First;
While not Q_saidaitem.Eof do
begin
Q_saidaitem.Close;
Q_saidaitem.ParamByName('id_saida_cab').AsInteger:= Q_saidaitem.FieldByName('id_saida_cab').AsInteger;
Q_saidaitem.Open;
For A:= 0 To Q_saidaitem.FieldCount - 1 do
begin
For B:= 0 To Q_aux_item.FieldCount - 1 do
begin
If Q_saidaitem.Fields[A].FieldName = Q_aux_item.Fields[B].FieldName then
begin
Q_aux_item.Fields[B].AsValue:= Q_saidaitem.Fields[A].AsValue;
end;
end;
end;

Q_aux_item.FieldByName('id_saida_item').AsInteger:= Q_saidaitem.RecordCount +1;

//Fazer a mesma logica para os filhos Antes Do POST do Qy_Aux pois ele DESAPARECERA assim que colocar o id_pai.

Q_Aux.Post;

Q_saidacabproduto.Next;
end;

Porém está dando dando erro no A e no B :https://uploaddeimagens.com.br/imagens/ffffffffffffffff-png-e5650d4b-0e81-4dd6-a414-0a07e7c083bc

Sei que o erro é bobo mais já a dias nesse projeto estou meio de cabeça quente e acabo não percebendo algumas coisas bobas que aparecer.rsrsrs.
Abraços;

[ric_rio2]

Bom dia zanba
tudo certinho??
Cara, desculpe a demora em responder.. aqui esta uma loucura,loucura,loucura..
Voce tem que DECLARAR as VARIAVEIS..
Tipo