Fórum RxDBLookupCombo e DBLookupComboBox #369392

Caros Amigos.

Estou com um problema meio que absurdo porém não estou conseguindo resolver e isso é urgente.

Tenho uma aplicação onde utilizo vários RxDBLookupCombo para selecionar Banco, Agência e Conta e isso fica salvo em uma tabela até ai sem problemas.

O problema ocorre quando edito esse registro e os campos de lookup não aparecem pois se os códigos de Banco, Agência e Conta estão lá.

Quando uso o DBLookupComboBox eles aparecem porém ele só abre uma linha e ai fica ruim para o usuário.

Vou colocar aqui um pedaço do código para facilitar.

procedure TfrmReceber.dbNbancoClick(Sender: TObject);
begin
qrAgencias.Close;
qrAgencias.ParamByName(´nBco´).AsString := qrBancoCOMP.Value;
qrAgencias.Open;

qrEsptitulo.Close;
qrEsptitulo.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrEsptitulo.Open;

qrCodjuros.Close;
qrCodjuros.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCodjuros.Open;

qrCoddesconto.Close;
qrCoddesconto.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCoddesconto.Open;

qrCodmulta.Close;
qrCodmulta.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCodmulta.Open;

qrCodprotesto.Close;
qrCodprotesto.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCodprotesto.Open;

qrCodbxadev.Close;
qrCodbxadev.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCodbxadev.Open;

qrOcorrencias.Close;
qrOcorrencias.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrOcorrencias.Open;

qrInstrcobranca.Close;
qrInstrcobranca.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrInstrcobranca.Open;
end;

procedure TfrmReceber.dbNAgenciaClick(Sender: TObject);
begin
qrContas.Open;
qrContas.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrContas.ParamByName(´nAge´).AsString := qrReceberBANCO_AGENCIA.Value;
qrContas.Open;
end;

procedure TfrmReceber.Action1Execute(Sender: TObject);
begin
Close;
end;

procedure TfrmReceber.qrReceberAfterDelete(DataSet: TDataSet);
begin
qrReceber.ApplyUpdates;
qrReceber.Transaction.CommitRetaining;
end;

procedure TfrmReceber.qrReceberBeforeDelete(DataSet: TDataSet);
begin
if not Perg(Handle, ´Confirma a exclusão de título?´) then
Abort;
end;

procedure TfrmReceber.qrReceberNewRecord(DataSet: TDataSet);
begin
Abort;
end;

procedure TfrmReceber.qrReceberAfterScroll(DataSet: TDataSet);
begin
qrAgencias.Close;
qrAgencias.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrAgencias.Open;

qrContas.Open;
qrContas.ParamByName(´nBco´).AsString := qrAgenciasCODBCO.Value;
qrContas.ParamByName(´nAge´).AsString := qrAgenciasCODAGE.Value;
qrContas.Open;

qrEsptitulo.Close;
qrEsptitulo.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrEsptitulo.Open;

qrCodjuros.Close;
qrCodjuros.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCodjuros.Open;

qrCoddesconto.Close;
qrCoddesconto.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCoddesconto.Open;

qrCodmulta.Close;
qrCodmulta.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCodmulta.Open;

qrCodprotesto.Close;
qrCodprotesto.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCodprotesto.Open;

qrCodbxadev.Close;
qrCodbxadev.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCodbxadev.Open;

qrOcorrencias.Close;
qrOcorrencias.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrOcorrencias.Open;

qrInstrcobranca.Close;
qrInstrcobranca.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrInstrcobranca.Open;
end;

procedure TfrmReceber.FormShow(Sender: TObject);
begin
qrAgencias.Close;
qrAgencias.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrAgencias.Open;

qrContas.Open;
qrContas.ParamByName(´nBco´).AsString := qrAgenciasCODBCO.Value;
qrContas.ParamByName(´nAge´).AsString := qrAgenciasCODAGE.Value;
qrContas.Open;

qrEsptitulo.Close;
qrEsptitulo.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrEsptitulo.Open;

qrCodjuros.Close;
qrCodjuros.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCodjuros.Open;

qrCoddesconto.Close;
qrCoddesconto.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCoddesconto.Open;

qrCodmulta.Close;
qrCodmulta.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCodmulta.Open;

qrCodprotesto.Close;
qrCodprotesto.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCodprotesto.Open;

qrCodbxadev.Close;
qrCodbxadev.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrCodbxadev.Open;

qrOcorrencias.Close;
qrOcorrencias.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrOcorrencias.Open;

qrInstrcobranca.Close;
qrInstrcobranca.ParamByName(´nBco´).AsString := qrReceberBANCO_COMP.Value;
qrInstrcobranca.Open;
end;