oleZakaztmp.text:='Выбрать '+
'ЗаказПокупателя.СуммаДокумента КАК СуммаЗаказаПокупателя, '+
'ЗаказПокупателя.Товары КАК Товары '+ //Тут не знаю правильно ли?
'ИЗ '+
'Документ.ЗаказПокупателя КАК ЗаказПокупателя '+
'ГДЕ '+
' ЗаказПокупателя.Грузополучатель.Код = &Грузополучатель '+
' И ЗаказПокупателя.Ссылка.Дата >= &ДатаНач '+
' И ЗаказПокупателя.Ссылка.Дата <= &ДатаКон ';
oleZakaztmp.УстановитьПараметр('Грузополучатель',oleKontrB.Код);
oleZakaztmp.УстановитьПараметр('ДатаНач',DateTimePicker1.DateTime);
oleZakaztmp.УстановитьПараметр('ДатаКон',DateTimePicker2.DateTime);
end
else begin
ShowMessage('Ошибка выбора периода формирования отчета!');
exit;
end;
oleZakaz:=oleZakaztmp.Выполнить().Выбрать();
oTable.Cells[3,i]:='0';
oTable.Cells[4,i]:='0';
while oleZakaz.Следующий() do begin
oTable.Cells[3,i]:=inttostr(strtoint(oTable.Cells[3,i])+1);
if oleZakaz.СуммаЗаказаПокупателя<>null then
oTable.Cells[4,i]:=floattostr(strtofloat(oTable.Cells[4,i])+strtofloat(oleZakaz.СуммаЗаказаПокупателя));
тут просто пробывал как-то // for c :=oleZakaz.Товары.Количество()-1 downto 1 do begin
oTable.Cells[6,i]:=oTable.Cells[6,i]+string(oleZakaz.Товары[1].Номенклатура);
// end;
end;
Немного не понимаю, можно небольшой пример? и пото как в цикле обрабатывать? где указывать номер строки?
for c :=oleZakaz.Товары.Количество()-1 downto 1 do begin oTable.Cells[6,i]:=oTable.Cells[6,i]+string(oleZakaz.Товары(тут).Номенклатура(или тут)[или так]);
end;