Показать сообщение отдельно
Старый 22.01.2007, 12:43   #5  
rmv is offline
rmv
Участник
 
481 / 11 (1) +
Регистрация: 15.02.2005
Если нужна форма подбора:

Сделайте ключ в 32 по Item No., Open с sumindexfield'ом на Remaining Quantity. (если нужен срез по Variant Code и Unit Of Measure Code - добавьте и их).

Код Storkich'а лучше заменить на
with 32 do begin
setcurrentkey("Item No.", Open);
setrange(Open, true)
if find('-') then repeat
setrange("Item No.", "Item No.");
Item.get("Item No.");
tempItem:=Item;
tempItem.insert;
find('+');
setrange("Item No.");
until next=0;
end

Lookup на поле "Item No.":
1. Собираем список товаров описанной выше ф-цией.
2. If Form.runmodal(0, tempItem)=action::lookupok then begin....