[kvadratnt]

Ребята помогите пожалуйсто доработать запрос на приход/расход. Не получается задействовать начальную дату, конечную дату и наименование товара.
Формулировка запроса: Вывести перечень прихода и расхода введённой складской еденицы за введёный период, подсчитав общее количество прихода, расхода и сумму остатка на складе.

БД весит более 97 кб поэтому не могу прикрепить её, а заливаю на дамп.
http://dump.ru/file/2857750

[Yurk@]

ну во-первых: ехе-файлы в архивы никто не пакует.
во-вторых: в табл. "накладные" переименуй поле "Sum" - это слово является зарезервированным
в-третьих, сам код (так как спешил - мог чего-то не заметить ... но сама идея верная):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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, (SELECT COUNT(Kolvo_otpusk_tov) FROM nakladn, tovar WHERE tovar.Nazv LIKE 'Тапки домашние' AND nakladn.Nomenkl_nomer = tovar.Nomenkl_nomer) as kol_rashoda, (SELECT COUNT(Kolvo_prin_tov) FROM nakladn, tovar WHERE tovar.Nazv LIKE 'Тапки домашние' AND nakladn.Nomenkl_nomer = tovar.Nomenkl_nomer AND kolvo_prin_tov>0) as kol_priem   FROM tovar TV, organiz ORG, nakladn NK   WHERE NK.Data between '20.06.1991' and '20.04.1992' AND TV.Nazv LIKE 'Тапки домашние' AND NK.Nomenkl_nomer = TV.Nomenkl_nomer AND ORG.INN_org = NK.INN_org

[kvadratnt]

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

ну во-первых: ехе-файлы в архивы никто не пакует.
во-вторых: в табл. "накладные" переименуй поле "Sum" - это слово является зарезервированным
в-третьих, сам код (так как спешил - мог чего-то не заметить ... но сама идея верная):

Код:

Насчет екзешника и названия поля принял к сведению, спасибо за совет.

Твой вариант запроса конечно работает, но только "домашних тапок" и заданых тобой дат. А как сделать его более универсальным? Чтобы самому можно было задавать и начальную дату, и конечную дату, и наименование товара через выпадающие списки на форме №13?

[Yurk@]

где-то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

Query4.Close; Query4.SQl.Text:='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, '+ '(SELECT COUNT(Kolvo_otpusk_tov) FROM nakladn, tovar WHERE tovar.Nazv LIKE "'+DBLookupComboBox2.Text+'" '+ 'AND nakladn.Nomenkl_nomer = tovar.Nomenkl_nomer) as kol_rashoda, '+ '(SELECT COUNT(Kolvo_prin_tov) FROM nakladn, tovar WHERE tovar.Nazv LIKE "'+DBLookupComboBox2.Text+'" '+ 'AND nakladn.Nomenkl_nomer = tovar.Nomenkl_nomer AND kolvo_prin_tov>0) as kol_priem '+ 'FROM tovar TV, organiz ORG, nakladn NK '+ 'WHERE NK.Data between "'+DateToStr(DateTimePicker1.Date)+'" and "'+DateToStr(DateTimePicker2.Date)+'" '+ 'AND TV.Nazv LIKE "'+DBLookupComboBox2.Text+'" '+ 'AND NK.Nomenkl_nomer = TV.Nomenkl_nomer '+ 'AND ORG.INN_org = NK.INN_org'; Query4.Open;

[kvadratnt]

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

где-то так:

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

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;

[PhoeniX]

Так... Выжимаю из себя всё, что знаю по SQL.
1: LIKE в SQL используется с % (иначе теряет смысл)

Код:

1	select * from user where email like '%@mail.ru%'

2: Строки в SQL пишутся не в кавычках (") а в апострофах ('), а в Делфи для ввода апострофа нужно ввести их 2 подряд.

Код:

1	ShowMessage (' '' '); //выведет '

Это пока всё, что заметил... Пробуй.

[Страдалецъ]

2: Строки в SQL пишутся не в кавычках (") а в апострофах ('), а в Делфи для ввода апострофа нужно ввести их 2 подряд.

Спорное утверждение, т.к. и тот и другой вариант нормально обрабатываются.
А вот что действительно потенциальную ошибку может вызвать так это вот эта запись, особенно если база на Акцесе:

Код:

1	'WHERE NK.Data between "'+DateToStr(DateTimePicker1.Date)+'" and "'+DateToStr(DateTimePicker2.Date)+'" '+

[PhoeniX]

А! А до меня допёрло. По case вы добавляете ещё один WHERE, а насколько я понял, надо писать AND. Хех, я смотрю, все ступили...