[Yurk@]

где-то так:

Код:

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;