Давай попробуем.

Необходимо выбрать действующие цены:

Select Max(Dates), ...;
From tab_Price;
Where Dates <= <заданое значение ДАТЫ>;
Into cursor/Table <Имя курсора/Табл>

Таким образом мы получим действующие цены на товары

А дальше уже по коду твоего покупателя

Попробуй сначала раздельными запросами а потом если получиться то загони в один!

help123 Ну почти получилось.... пишу... (название колонок другое...)

v_receiverk = ThisForm.receiverk.Value
v_scrap4k = ThisForm.GridMchild.Column1.Combo1.Value
v_dsend = ThisForm.dsend.Value

SELECT pb.dates AS dates, pb.price AS price FROM pricebuy pb;
WHERE pb.buyerk = v_receiverk AND pb.scrap = v_scrap4k AND pb.dates <= v_dsend;
INTO CURSOR cPr

сформировался курсор cPr с колонками dates и price.

Как теперь с этого курсора вывести цену максимальной даты

пишу:
Select p.price AS price From cPr p WHERE p.dates = MAX (p.dates)
Into cursor .....
неполучается

или может можно это сделать сразу в первом селекте
Заранее благодарен

Попробуй так:
Select Max(pb.dates) As dates, pb.price As price;
FROM pricebuy pb;
WHERE pb.buyerk = v_receiverk;
AND pb.scrap = v_scrap4k;
AND pb.dates <= v_dsend;
Group By 2
INTO Cursor cPr

Ну тогда убирай

help123 убираю GROUP BY:

v_receiverk = ThisForm.receiverk.Value
v_scrap4k = ThisForm.GridMchild.Column1.Combo1.Value
v_dsend = ThisForm.dsend.Value

SELECT MAX(pb.dates) AS dates, pb.price AS price;
FROM pricebuy pb;
WHERE pb.buyerk = v_receiverk;
AND pb.scrap = v_scrap4k;
AND pb.dates <= v_dsend

пишет ошибку:

Program Error: SQL: GROUP BY clause is missing or invalid

Если у тебя VFP 8? то попробуй поиграй с настройками
Set Enginebehavior 70
В 6-й версии должно отрабатывать!!!!

2 Igor Korolyov

Не обращал внимания. Надо пересмотреть все свои программы.

Заказчики пока молчат, наверное, все таки, подобных ситуаций не возникало!
Спасибо Igor Korolyov