[firebase-br] Duvida IBO

Dimas - Pessoal dimas em dbsoftinformatica.com.br
Ter Ago 30 14:26:19 -03 2005 

Washington,
Estou criando uma outra query p/ fazer LookupCombo, não se o certo mas poupa
muita definição em runtime.
Outra coisa vc ja precisou fazer um campo lookup, onde vc só tem o codigo do
produto na tabela por ex. e quer ver sua descrição dentro de uma grid.

DBSOFT INFORMÁTICA - OURO FINO
Dimas Bolognani - Diretor
Tel.(35)3441-5254
----- Original Message -----
From: "NextCorp Informatica" <nextcorp em terra.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Tuesday, August 30, 2005 10:06 AM
Subject: Re: [firebase-br] Duvida IBO


Dimas

Tb iniciei com IBO a pouco, mas em funcao da necessidade, fui atras de
informacoes no site do jaison, mas muita coisa resolvi no
proprio help e na lista, apesar de ter algumas duvidas com o lookupcombo
quando setado em runtime.

No seu caso oque esta faltando e abrir no form de cadastro a qryGrupos, pois
ai em baixo vc nao colocou, somente citou, que abria
tudo no show. Passo a rotina toda.

Neste exemplo e um cadastros de escola onde possue um campo lookup para
grupos.

procedure TfmCadastroEscola.FormShow(Sender: TObject);
begin
     StatusBotao(1,0,0,0,0,0,0);
     dmDados.IB_qryGrupos.KeySource.Free;
     dmDados.IB_qryGrupos.KeyLinks.Clear;

dmDados.IB_qryGrupos.KeyLinks.Add('GRUPOS.GRU_CODIGO=ESCOLA.ESC_GRUPO');
     dmDados.IB_qryGrupos.KeySource:= dmDados.IB_dsEscolas;
     dmDados.IB_qryGrupos.Prepare;
     dmDados.IB_qryGrupos.Open;
     edPesquisa.SetFocus;
end;

procedure TfmCadastroEscola.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     dmDados.IB_qryEscolas.Close;
     dmDados.IB_qryEscolas.Unprepare;
     dmDados.IB_qryGrupos.Close;
     dmDados.IB_qryGrupos.Unprepare;
     dmDados.IB_qryDieese.Close;
     dmDados.IB_qryDieese.UnPrepare;
end;

Quanto a influencia do

     dmDados.IB_qryGrupos.KeySource.Free;
     dmDados.IB_qryGrupos.KeyLinks.Clear;

e este o maior problema que ainda nao achei uma solucao.

Utilizou por que tenho outro cadastro de agencias por exemplo, onde tb tenho
um campo lookup para a mesma qryGrupos.
Entao se eu não seto com estas linhas a cima a mesma não mostrava
corretamente os campos do grupo se entrava em um ou outro
cadastro (escolas ou agencias), entao utilizei estes comandos, mas ainda nao
está funcionando adequadamente.

Por que utilizar em runtime então !!!!

Por que como utilizo a mesma qryGrupos em dois cadastros distintos que fazem
um lookup para grupos, não poderia colocar la na
query no 2 keylinks diferentes, pois somos obrigados a setar o datasource
(ds) da tabela que esta ocorrendo o cadastro.

Por enquanto estou utilizando assim, pois não obtive resposta sobre as
minhas perguntas com o Carlos, pois ele deve estar
atarefado, mas mesmo assim continuo testando e procurando informacoes sobre
isto.

Como não tenho ainda muito conhecimento no IBO, até não sei se poderia setar
os dois keylinks diretamente na query e setar somente
o datasource em runtime.

Atenciosamente

Washington A. Müller da Silva

#####################
NextCorp Informática Ltda
www.nextcorp.com.br
nextcorp em terra.com.br
0 xx (51)-589-3690
####################
----- Original Message -----
From: "Dimas - Pessoal" <dimas em dbsoftinformatica.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Monday, August 29, 2005 6:05 PM
Subject: Re: [firebase-br] Duvida IBO


> Washington,
> estou iniciando no IBO...
> veja se vc pode me ajudar.. seguindo sua dica abaixo.
> estou fazendo um cadastro de produtos e estou definindo o grupo de estoque
> usando um Lookupcombo
>
>         abro a tabela de produtos  e grupos no evento Onshow...e fecho no
> Onclose.
>         DM.IBProdutos.Prepare;
>         DM.IBProdutos.Open;
>
>         // que infruencia isto pode causar na quary de produtos?
>         DM.IBGrupos.KeySource.Free;
>         DM.IBGrupos.KeyLinks.Clear;
>
> DM.IBGrupos.KeyLinks.Add('GESTOQUE.GRU_CODIGO=PRODUTOS.PRO_CODGRUPO');
>         DM.IBGrupos.KeySource := DM.IBDSProdutos;
>         DM.IBGrupos.Prepare;
>         DM.IBGrupos.Open;
>
> na primeira vez tudo funciona certinho, mas quando fecho o form e volto a
> tabela de produtos esta fechada.
> Pq se estou abrindo ela no Onshow.
>
>         // no OnClose
>         DM.IBProdutos.UnPrepare;
>         DM.IBProdutos.Close;
>         DM.IBGrupos.UnPrepare;
>         DM.IBGrupos.Close;
>
> Obrigado.
>
>
> DBSOFT INFORMÁTICA - OURO FINO
> Dimas Bolognani - Diretor
> Tel.(35)3441-5254
> ----- Original Message -----
> From: "NextCorp Informatica" <nextcorp em terra.com.br>
> To: "FireBase" <lista em firebase.com.br>
> Sent: Monday, August 29, 2005 2:55 PM
> Subject: Re: [firebase-br] Duvida IBO
>
>
> Caro Magno
>
> Tenho o mesmo problema com relacao a lookupcombo quando a mesma tabela tem
> que ser usada em forms de cadastros diferentes. Tenho
> que atribuir tudo em runtime, dai tinha problemas. Resolvi em parte
> colocando tudo em uma certa ordem, antes de atribuir o
> datasource de ligacao com a tal tabela.
>
> Veja se este nao e o seu caso, tenta mudar a ordem das linha de execucao,
> pois o seu comando esta certissimo, entao pode ser um
> problema na hora de colocar a ordem nas coisas. Veja um exemplo:
>
> dmDados.IB_qryBancos.KeySource.Free;
> dmDados.IB_qryBancos.KeyLinks.Clear;
> dmDados.IB_qryBancos.KeyLinks.Add('BANCOS.BAN_NUMERO=AGENCIA.AGE_CODBAN');
> dmDados.IB_qryBancos.FieldsVisible.Add('BANCOS.BAN_VALOR_MJ = FALSE');
> dmDados.IB_qryBancos.KeySource:= dmDados.IB_dsAgencias;
> dmDados.IB_qryBancos.Prepare;
> dmDados.IB_qryBancos.Open;
>
> Quando montei isto da primeira vez nao funcionava por que eu colocava o
> keysource antes de tudo, depois que mudei esta ordem
> funcionou normalmente, apesar de ainda nao ter encontrado a forma certa de
> trabalhar com lookupcombo, pois ainda acontece umas
> coisas estranhas.
>
>
> Atenciosamente
>
> Washington A. Müller da Silva
>
> #####################
> NextCorp Informática Ltda
> www.nextcorp.com.br
> nextcorp em terra.com.br
> 0 xx (51)-589-3690
> ####################
> ----- Original Message -----
> From: "Magno" <magnoscosta em bol.com.br>
> To: "Grupo Delphi 5" <delphi5 em grupos.com.br>; "FireBase"
> <lista em firebase.com.br>; <delphi em grupos.com.br>
> Sent: Monday, August 29, 2005 10:58 AM
> Subject: [firebase-br] Duvida IBO
>
>
> Amigo.. seguinte...
>
> Como eu faço em runtime pra atribuir a um campo do IB_Query q ele nao seja
> required..
>
> Tentei
> IB_Query.FieldByName('Campo').Required := False
>
> Mas nao deu certo..
>
> Alguem pode me dar uma dica..
>
> detalhe.. nao da pra ser direto pelo componente pois as atribuições sao
> feitas em runtime.. tipo conexão transação etc...
>
> At.
> Magno
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.344 / Virus Database: 267.10.16/83 - Release Date: 26/08/2005
>
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
>
> __________ Informação do NOD32 1.1203 (20050827) __________
>
> Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
> http://www.nod32.com.br
>
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.323 / Virus Database: 267.10.15/81 - Release Date: 24/08/2005
>
>
>
> __________ Informação do NOD32 1.1203 (20050827) __________
>
> Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
> http://www.nod32.com.br
>
>
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.344 / Virus Database: 267.10.16/83 - Release Date: 26/08/2005
>
>


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa



__________ Informação do NOD32 1.1204 (20050829) __________

Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
http://www.nod32.com.br




--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.10.15/81 - Release Date: 24/08/2005



__________ Informação do NOD32 1.1204 (20050829) __________

Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
http://www.nod32.com.br

Mais detalhes sobre a lista de discussão lista