Relacionando tabelas

[TeDs 0]

Tenho uma tabela onde o PKey é PagamantoId e para relacionar com os cadastros coloque uma FKey com EntidadeID.

 

Esta funcionando perfeitamente a unica coisa é que quando escolho o Cadastro tenho que mandar o Gen_Id pro Edit. Porém queria exebir o nome no campo ao inves do codigo. Só que fazendo isso da problema pois o banco esta esperando o ID. Como posso fazer isso dentro de um Insert.

 

O meu codigo esta assim:

ibqInsert.Close;

ibqInsert.SQL.Clear;

ibqInsert.SQL.Text := 'Insert Into PAGAMENTOS (PAGAMENTOID, ENTIDADEID, DATA, VALOR, FORMA, TIPO, OBS)'+ ' ' +

'Values (Gen_Id(GEN_PAGAMENTOID, 1),' + QuotedStr(edEntidade.Text)+ ',' + QuotedStr(edData.Text)+ ',' +QuotedStr(edValor.Text)+ ',' +QuotedStr(IntToStr(cbForma.ItemIndex))+ ',' +QuotedStr(IntToStr(cbTipo.ItemIndex)) + ',' +QuotedStr(edObs.Text)+ ')';

ibqInsert.ExecSQL;

:blink:

[Chrnos 30]

Não há como você fazer isto dentro de um insert... o correto é antes de dar o insert você recuperar este código a partir da descrição, fazendo um select na base para isso e armazenando o valor numa variável. Depois é só dar um insert normal como você já faz.

 

Outra saída seria armazenar os valores desta tabela em arrays por exemplo e recuperar o código dali antes de inserir...

 

Há outros modos, é só pensar um pouco.

 

[]'s

[TeDs 0]

Beleza.... vou tentar sim....

E sobre o calendario que você falou no outro topico eu agradeço a ajuda. E ainda estou tentando resolver aquele problema :P