ActiveDelphi

[Santinello]

Boa tarde.
Vamos, nós, a mais um pedido de ajuda.
Para filtrar um relatório, tenho dois campos para data inicial e final e, dois DBLookupComboBox, para campos, como por exemplo, transportadoras, minha necessidade é, tem como o DBLookupComboBox inicial, trazer o primeiro item da lista da tabela e, o outro DBLookupComboBox, trazer o ultimo item, desta forma, deixando os DBLookupComboBox ja preenchidos, Meu codigo de colsulta está assim :

' if Trim(DBLookupComboBoxFornec1.Text) = '' then
begin
MessageDlg('Selecione um Fornecedor para Inicio do Relatório!', mtWarning, [mbOK], 0);
DBLookupComboBoxFornec1.SetFocus;
Exit;
end;

if Trim(DBLookupComboBoxFornec2.Text) = '' then
begin
MessageDlg('Selecione um Fornecedor para Final do Relatório!', mtWarning, [mbOK], 0);
DBLookupComboBoxFornec2.SetFocus;
Exit;
end;

FormRelEntradasPeqServicosTodos := TFormRelEntradasPeqServicosTodos.Create(Application);
with FormRelEntradasPeqServicosTodos do
begin
DataModulePoliNutri.SQLDataSetRelPeqServicosTodos.ParamByName('codigo1').AsString := DBLookupComboBoxFornec1.Text;
DataModulePoliNutri.SQLDataSetRelPeqServicosTodos.ParamByName('codigo2').AsString := DBLookupComboBoxFornec2.Text;

DataModulePoliNutri.SQLDataSetRelPeqServicosTodos.ParamByName('data1').asDate := StrToDate(DateEditInicial.Text);
DataModulePoliNutri.SQLDataSetRelPeqServicosTodos.ParamByName('data2').asDate := StrToDate(DateEditFinal.Text);

DataModulePoliNutri.ClientDataSetRelPeqServicosTodos.Close;
DataModulePoliNutri.ClientDataSetRelPeqServicosTodos.Open;

FormRelEntradasPeqServicosTodos.RLReport1.PreviewModal;
end;"
Roda a contento, mas traz os os DBLookupComboBox vazios.

Atenciosamente

Fausto Alencar

[joemil]

tenta assim:

[Santinello]