Fórum Delphi Quick Report imprimir registros #524722
02/07/2015
0
Estou fazendo um sisteminha para realizar simples empréstimos de uma coleção de Bichos etc..
Minha Tabela que registras as espécies eu coquei com PK codTombo, nesta mesma tabela tenho uma chave estrangeira Espécie
Depois construí uma tabela para emprestar cada espécime, como em um empréstimo tenho posso ter vários Tombos e espécie fiz uma tabela Itens empréstimos armazenando suas respectivas PK chaves primárias,
Efetuando o emprestimo , Gostaria de imprimir os itens corrente do emprestimo como os dados desta tabla itens e os dados da tabela emprestimo , como datavencimento, nome da pessoa, etc..
porem no Quick Report não consigo imprimir, ja configurei várias coisas, o máximo que consegui , foi imprimir apenas 1 itens de um empréstimo que contem 4 itens !
Como faço para imprimir tudo ?
Rodrigo Martins
Curtir tópico
+ 0Posts
03/07/2015
Dorivan Sousa
posta ai como vc ja fez que fica mais facil pra continuar.
Gostei + 0
03/07/2015
Rodrigo Martins
Bom esta é minha tela!
No Botão Adicionar busco minha Tabela de cadastro de espécie pelo seguinte código.
(Quando busco o tombo ou ID... faço uma busca na tabela de cadastro e puxo logo o nome da espécie )
DataModule2.ibqbuscaitens.Close;
DataModule2.ibqbuscaitens.ParamByName('busca').Value := DataModule2.IBemprestimoCODSERVICO.Value;
DataModule2.ibqbuscaitens.ParamByName('busca2').Value :=DataModule2.QconsultaTomboBCODTOMBO.Value;
DataModule2.ibqbuscaitens.Prepare;
DataModule2.ibqbuscaitens.Open;
if (DataModule2.ibqbuscaitens.RecordCount=0) then
begin
DataModule2.IBitensespecies.Insert;
DataModule2.IBitensespeciesCODSERVICO.Value:=DataModule2.IBemprestimoCODSERVICO.Value;
DataModule2.IBitensespeciesCODTOMBO.Value:=DataModule2.QconsultaTomboBCODTOMBO.Value;
DataModule2.IBitensespecies.POST;
Na Tabela Itens - Terei apenas os dados das Chaves primarias de cada uma das tabelas
Ficou confuso ?
Gostei + 0
22/07/2015
Rodrigo Martins
Gostei + 0
22/07/2015
Rodrigo Martins
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)