[kvadratnt]

Сообщение от Yurk@

где-то так:

Благодарю, но при нажатии на кнопку запрос ошибки всё время выдаёт. Мне кажется что что-то с кодом кнопки, только не могу понять что именно не так.

Код:

procedure TForm13.Button1Click(Sender: TObject);
begin
datamodule1.Query4.Close;
datamodule1.Query4.SQL.Clear;
datamodule1.Query4.SQL.Append('SELECT DISTINCT NK.N_naklad, NK.Data, NK.Kolvo_otpusk_tov, NK.Kolvo_prin_tov, NK.Sum_NDS, NK.Sum_s_NDS, ORG.Nazv_org, ');
datamodule1.Query4.SQL.Append('SELECT COUNT(Kolvo_otpusk_tov) FROM nakladn, tovar WHERE tovar.Nazv LIKE "'+DBLookupComboBox2.Text+'" AND nakladn.Nomenkl_nomer = tovar.Nomenkl_nomer) as kol_rashoda, ');
datamodule1.Query4.SQL.Append('AND nakladn.Nomenkl_nomer = tovar.Nomenkl_nomer) as kol_rashoda, ');
datamodule1.Query4.SQL.Append('(SELECT COUNT(Kolvo_prin_tov) FROM nakladn, tovar WHERE tovar.Nazv LIKE "'+DBLookupComboBox2.Text+'" ');
datamodule1.Query4.SQL.Append('AND nakladn.Nomenkl_nomer = tovar.Nomenkl_nomer AND kolvo_prin_tov>0) as kol_priem ');
datamodule1.Query4.SQL.Append('FROM tovar TV, organiz ORG, nakladn NK ');
datamodule1.Query4.SQL.Append('WHERE NK.Data between "'+DateToStr(DateTimePicker1.Date)+'" and "'+DateToStr(DateTimePicker2.Date)+'" ');
datamodule1.Query4.SQL.Append('AND TV.Nazv LIKE "'+DBLookupComboBox2.Text+'" ');
datamodule1.Query4.SQL.Append('AND NK.Nomenkl_nomer = TV.Nomenkl_nomer ');
datamodule1.Query4.SQL.Append('AND ORG.INN_org = NK.INN_org');
case form13.RadioGroup1.ItemIndex of
-1: showmessage('Выберите тип запроса');
0:
 begin
  datamodule1.Query4.SQL.Append('WHERE   (Nakladn.Kolvo_prin_tov > 0)');
  datamodule1.Query4.SQL.Append('AND  (Nakladn.Kolvo_otpusk_tov = 0)');
 end;
1:
 begin
  datamodule1.Query4.SQL.Append('WHERE   (Nakladn.Kolvo_prin_tov = 0)');
  datamodule1.Query4.SQL.Append('AND  (Nakladn.Kolvo_otpusk_tov > 0)');
 end;
2:
 begin
  datamodule1.Query4.SQL.Append('WHERE   ((Nakladn.Kolvo_prin_tov >= 0)');
  datamodule1.Query4.SQL.Append('OR  (Nakladn.Kolvo_otpusk_tov >= 0))');
 end;
end;
if form13.CheckBox1.Checked then
if form13.DBLookupComboBox1.Text<>'' then
begin
 datamodule1.Query4.SQL.Append('AND  (Organiz.INN_org = :p_inn)');
 datamodule1.Query4.ParamByName('p_inn').AsInteger:=form13.DBLookupComboBox1.KeyValue;
end;
datamodule1.Query4.Open;
end;

procedure TForm13.Button2Click(Sender: TObject);
begin
  form13.Hide;
  form1.show;
end;

procedure TForm13.Button3Click(Sender: TObject);
begin
form13.RvProject1.Execute;
end;