D�vida com Mestre/Detalhe

Question

Uso FB1.5 e Dbx com ClientDataSet. Uso s� componentes da Paleta Data Control e tamb�m criei um generator para q atrav�s de uma trigger, autoincrementar. Minha d�vida � a seguinte: Como incluir a detal...

G1b4 · Answer

Algu�m por favor, me ajude!...

Eniorm · Answer

Uso s� componentes da Paleta Data Control e tamb�m criei um generator para q atrav�s de uma trigger, autoincrementar.
Minha d�vida � a seguinte: Como incluir a detalhe ao mesmo tempo que a mestre usando s� componentes da Paleta Data Control??? O problema � que n�o consigo pegar a chave prim�ria da mestre para relacionar com a estrangeira da detalhe.
Mas tamb�m n�o quero criar um campo na mestre que guarde o valor do generator.

Apenas uma sugest�o, TENTE o seguinte:
A chave primaria � gerada qdo, no On Post ou no On New Record ??

Caso seja no On Post, ent�o no evento AfterPost (ap�s postar) do DataSet mestre que vc usa e use algo assim:
cod := DataSet.FieldByName(�CampoChave�).AsInteger;

E logo depois vc implementa a grava��o do detalhe.

Ja fiz isso uma vez, usando IBDataSet e IBQuery/IBUpdateSQL

G1b4 · Answer

Caro Enio,A trigger eh gerada depois do post.A edi��o, consulta, exclus�o funicionam normalmente.O problema eh na inser��o, pois pede-se o coddetalhe. Aew que est� o problema......

Eniorm · Answer

[quote:981c3f86b0=�g1b4�]Caro Enio,A trigger eh gerada depois do post.A edi��o, consulta, exclus�o funicionam normalmente.O problema eh na inser��o, pois pede-se o coddetalhe. Aew que est� o problema...[/quote:981c3f86b0]Exato, no evento AfterPost vc usa:[code:1:981c3f86b0]coddetalhe := SeuDataSet.FieldByName(�CampoChave�).AsInteger;[/code:1:981c3f86b0]Depois vc grava o detalhe usando o valor de coddetalheT+...

G1b4 · Answer

Grato Enio,
Mas como lhe falei o problema n�o eh no post...
eh na inser��o...
Vou ser mais claro..
Tenho uma pagecontrol no formulario e varias tabsheets.
Na primeira tab est� os componentes relacionados da tabela mestre e no restante, da tabela detalhe.
O erro n�o ocorre qdo clico no bot�o:

procedure Tform1.BitBtn1Click(Sender: TObject);
begin
DataSource1.DataSet.Insert;
SQLDataSet2.Active:=False;
SQLDataSet2.CommandText:= �Select * from DETALHE where coddetalhe = (Select max(codmestre) from MESTRE)�;
// Acho q o segredo est� no sql, mas n�o consigo
// tentei tamb�m ao inv�s de (Select max(codmestre) from MESTRE)
// colocar (Select gen_id(generatormestre,0) from RDB$database)
SQLDataSet2.Active:=True;
DataSource2.DataSet.Insert;
end;

Mas qdo o foco vai para algum componente relacionado a detalhe:

field codmestre: must have a value.

Se alguem puder me ajudar, eu agrade�o...

G1b4 · Answer

Galera, depois de muito teste, posso afirmar que o problema se d� no Insert da tabela detalhe. Quando um registro � inserido na tabela detalhe, pede-se o valor da chave estrangeira da detalhe para come�ar a relacionar com a mestre. O problema � que o valor que ele pede, ainda n�o foi gerado e n�o posso simplesmente gerar um valor aleat�rio sem o registro mestre existir. Ser� q o �nico jeito � gravar o registro mestre e depois post�-lo, gerando assim a chave prim�ria e logo em seguida dar insert no detalhe, tendo assim a chave estrangeira, editando o mestre e em seguida inserindo o detalhe???

Aguardo respostas...

G1b4 · Answer

Algu�m me ajude !!!...

G1b4 · Answer

Tentei assim:procedure Tdm.ClientDataSet1AfterInsert(DataSet: TDataSet);begin  DataSet.Post; //relacionado a tabela mestre  DataSet.Edit;  SQLDataSet2.Active:=False;  SQLDataSet2.SQL.Text:=�Select * from DETALHE where coddetalhe=�+  IntToStr(DataSet.FieldByName(�codmestre�).AsInteger);  DataSource2.DataSet.Refresh;  DataSource2.DataSet.Insert;end;Mas mesmo assim, n�o h� relacionamento...Algu�m me ajude....

G1b4 · Answer

Consegui dar um passo no problema.

var
codigo : integer
begin
ClientDataSetMestre.Append ;
ClientDataSetMestre.Post;
//logo ap�s o post a chave eh gerada
ClientDataSetMestre.Active:=False;
ClientDataSetDetalhe.Active:=False;
ClientDataSetMestre.CommandText:=�select * from MESTRE where codmestre=�+IntToStr(codigo);
ClientDataSetMestre.Active:=True;
ClientDataSetDetalhe.Active:=True;
ClientDataSetMestre.Edit;
ClientDataSetDetalhe.Insert;
end;

O erro q aparece � que o campo codmestre tem q ter um valor.

G1b4 · Answer

Esqueci da atribui��o da vari�vel, esse s� � um exemplo. No meu programa ela jah estava...
var
codigo : integer
begin
ClientDataSetMestre.Append ;
ClientDataSetMestre.Post;
codigo:=ClientDataSetMestre.FieldByName(�codmestre�).AsInteger;
//logo ap�s o post a chave eh gerada
ClientDataSetMestre.Active:=False;
ClientDataSetDetalhe.Active:=False;
ClientDataSetMestre.CommandText:=�select * from MESTRE where codmestre=�+IntToStr(codigo);
ClientDataSetMestre.Active:=True;
ClientDataSetDetalhe.Active:=True;
ClientDataSetMestre.Edit;
ClientDataSetDetalhe.Insert;
end;

F�rum D�vida com Mestre/Detalhe #231922