Search options (Page 120 of 400)

Здравствуйте.

Непосредственно взять данные из TableGrid и передать их в отчет возможности нет. Вместо этого вам нужно кнопки с действием "Поиск" и "Отчет" настроить одинаково, т.о. и данные для отчета будут такими же, какими они были бы и для TableGrid

Evgeniy D
К сожалению врядли смогу помочь в этом вопросе. Возможно на компьютере используется прокси сервер для доступа в интернет?

Hello.

There is no possibility to paint items in ComboBox. An example for you:

Set for print button mode "Quick print" (In the settings of button)

Then create event OnClick for this button, where you can specify printer's name:

procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.frxReport.PrintOptions.Printer := 'Microsoft XPS Document Writer';
end;

видимо присутствуют записи с пустой датой, поэтому можно вставить проверку ValidDate

If (StrToDate(ValidDate(<Report."porych_gd.planovaya_data_isp">)) < StrToDate(ValidDate(<Report."porych_gd.data_ispol">))) and (<Report."status_porychGD.status"> = 'Выполнено')  then memo10.font.color := clRed;

если не заработает, приложите пожалуйста проект, проверю.

Посмотрите пожалуйста данную тему
http://myvisualdatabase.com/forum/viewt … 870#p21870

Check it out

Select 'PI-' || Invoice.Counter3,'Db-' || Refund.Counter4,Refund.DBCRvalue,
    strftime('%d/%m/%Y', Refund.PIRdate),Supplier.name,Invoice.product,
    TaxRates.TaxRate,printf('%.2f',Invoice.PIprice),printf('%.2f',Refund.PIRprice),
    Refund.Id
 From Refund 
 Left Outer Join Invoice On Invoice.Id = Refund.id_Invoice 
 Left Outer Join Supplier On Supplier.Id = Refund.id_Supplier
 Left Outer Join TaxRates On TaxRates.Id = (Select TaxRates.Id From TaxRAtes
     Where TaxRates.Id = Invoice.id_TaxRates)
 Where Refund.DBCRValue = 'Db'

неправильно настроена кнопка поиска "Все" на главной форме.

в первом списке "1. Выберите компоненты учавствующие в поиске" у вас присутствует компонент TableGrid1, его не должно быть в правом списке. Компонент не может учавствовать в поиске и быть компонентом для результата поиска в одно и тоже время.

Удалите данную кнопку. В вашем случае, чтобы показать все записи, вы можете создать для кнопки событие OnClick:

procedure home_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
     home.TableGrid1.dbUpdate; // обновит таблицу и покажет все записи
end;

либо вы можете для компонентов CheckBox1 и CheckBox2 установить значение AllowGrayed = True, таким образом у компонента появится третье значение, с помощью которого можно игнорировать значение компонента при поиске.

ваш проект:

К сожалению протестировать не могу, нет com устройства.

Добавил для компонента метод Repaint который должен его принудительно перерисовать.
Скачайте пожалуйста последнюю бета версию 3.6b
https://www.dropbox.com/s/4rfukqr2r1awq … b.zip?dl=0

попробуйте так

procedure OnRecieveComData(Sender: TObject; Data: string);
var
    arrValues: array of string;
begin
  arrValues := SplitString(Data, ',');
  if Length(arrValues)=4 then
  begin
     if arrValues[0]='ST' then
      Form1.Edit1.Text := arrValues[2] +' '+ arrValues[3];
      Form1.Edit1.Repaint;
  end;
  //begin
  //Form1.Memo1.Lines.Add(Data);
//end;

end;

Поля с датами в отчете являются просто текстом, попробуйте так

If (StrToDate(<Report."porych_gd.planovaya_data_isp">) < StrToDate(<Report."porych_gd.data_ispol">)) and (<Report."status_porychGD.status"> = 'Выполнено')  then memo10.font.color := clRed;

delphinsl
Скорей всего ошибка в скрипте, не в SQL запросе.
Приложите пожалуйста ваш проект, с описанием действий приводящих к ошибке.

It depends how you set this value in the textbox?