ActiveDelphi

[carranca]

Boa noite pessoal estou tentando clonar um determinado registro de uma tabela pai e filha. Exemplo: Orçamento e Itensm mas so ta clonado a tabela pai a filha vem em branco, estou usando esse código abaixo:

Alguem poderia me ajudar?

procedure TForm1.btnClonarClick(Sender: TObject);
VAR
// Variaveis Tabela Mestre:
vID : Integer;
vCODE, vCOMMENT, vFINALIZADO : String;

// Variaveis Tabela Detalhe:
vDetalheID : integer;
vDetalheREFERENCIA, vDetalheCICLO01, vDetalheCICLO02, vDetalheCICLO03 : double;

begin
cdsCALIBRACAO.Open;
// vID := cdsCALIBRACAO.FieldByName('ID').value;
vCODE := cdsCALIBRACAO.FieldByName('CODE').AsString;
vCOMMENT := cdsCALIBRACAO.FieldByName('COMMENT').AsString;
vFINALIZADO := cdsCALIBRACAO.FieldByName('FINALIZADO').AsString;

// vDetalheID := cdsCALIBRAITENS.FieldByName('ID').Value;
vDetalheREFERENCIA := cdsCALIBRAITENS.FieldByName('REFERENCIA').Value;
vDetalheCICLO01 := cdsCALIBRAITENS.FieldByName('CICLO01').Value;
vDetalheCICLO02 := cdsCALIBRAITENS.FieldByName('CICLO02').Value;
vDetalheCICLO03 := cdsCALIBRAITENS.FieldByName('CICLO03').Value;

cdsCALIBRACAO.insert;
// cdsCALIBRACAO.FieldByName('ID').Value := vID ;
cdsCALIBRACAO.FieldByName('CODE').AsString := vCODE;
cdsCALIBRACAO.FieldByName('COMMENT').AsString := vCOMMENT;
cdsCALIBRACAO.FieldByName('FINALIZADO').AsString := vFINALIZADO;
cdsCALIBRACAO.Post;
cdsCALIBRACAO.ApplyUpdates(0);
cdsCALIBRACAO.Refresh;

cdsCALIBRAITENS.Append;
// cdsCALIBRAITENS.FieldByName('ID').Value := vID;
cdsCALIBRAITENS.FieldByName('REFERENCIA').Value := vDetalheREFERENCIA;
cdsCALIBRAITENS.FieldByName('CICLO01').Value := vDetalheCICLO01;
cdsCALIBRAITENS.FieldByName('CICLO02').Value := vDetalheCICLO02;
cdsCALIBRAITENS.FieldByName('CICLO03').Value := vDetalheCICLO03;

cdsCALIBRAITENS.Post;

[imex]

Bom dia,

Você está executando o ApplyUpdates do ClientDataSet de itens após o Post?

_________________
Assinatura: https://www.imoveisemexposicao.com.br/imoveis-alugar-guarulhos-residencial-casa

[johnny-walker]

Se você utiliza este modelo:
https://www.devmedia.com.br/master-detail-simples-e-descomplicado-para-iniciantes-delphi/20370

Você pode clonar ambos, bastando clonar o dataset através da função data ou se não me engano tem uma função para clonar os dados, não estou com o delphi para tirar a dúvida, mas de qualquer forma baixe este exemplo da embarcadero, tem de ter um login:

http://cc.embarcadero.com/Item.aspx?id=21128



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[carranca]

[carranca]

[imex]

O ApplyUpdates está retornando 0?
Você tem código no evento OnReconcileError para capturar eventuais mensagens de erro ao atualizar o banco de dados?

[johnny-walker]

Tem-se de tomar cuidado ao configurar os providersflags visto que se configurados errados, podem causar algumas dores de cabeça.



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[carranca]

[imex]

Confira um exemplo no tópico abaixo:
http://www.activedelphi.com.br/forum/viewtopic.php?t=95014&sid=469d758ed9101a2736c7cd019df4813e

Espero que ajude

[johnny-walker]

O evento onreconcile error é bom utilizar, pois nem toda exceção ocorre no objeto exception e quando se dá o applyudates pode ser diferente de zero, zero é quando não ocorre nenhum tipo de erro.

Com o applyupdadeste igual a -1 não gera erros, mas não quer dizer que eles não existam, somente não são mostrados ao usuário.



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I