Сейчас не на работе)) Поэтому примерно так выглядит
vendDim = str2int(StrEdit.valueStr());
X++:
while select _vendTrans
where _vendTrans.Dimension[2] == vendDim
&& _vendTrans.TransDate >= toDate && _vendTrans.TransDate <= fromDate
{
<- . VendTable
}
Select достаточно прост как видите)))