[JuniorAx]

Сейчас не на работе)) Поэтому примерно так выглядит
vendDim = str2int(StrEdit.valueStr());

while select _vendTrans 
where _vendTrans.Dimension[2] == vendDim
&& _vendTrans.TransDate >= toDate && _vendTrans.TransDate <= fromDate
{
<-     . VendTable        
}

Select достаточно прост как видите)))