136
if fmDiapason.GetDiapason(DateFrom, DateTo) then
with DM do begin
qrYield.Close;
qrYield.Parameters.ParamByName('pDateFrom').DataType := ftDate;
qrYield.Parameters.ParamByName('pDateTo').DataType := ftDate;
qrYield.Parameters.ParamByName('pDateFrom').Value := DateFrom;
qrYield.Parameters.ParamByName('pDateTo').Value := DateTo;
qrYield.Open;
WorkbookName := GetCurrentDir + '\\
Excel := CreateOleObject('Excel.Application');
try
Excel.Workbooks.Open(WorkbookName);
Excel.Cells[3,6] := DateFrom;
Excel.Cells[3,9] := DateTo;
with DM do begin
qrYield.First;
PosInc := 6;
Sum := 0;
for i:=PosInc to qrYield.RecordCount+PosInc-1 do begin
// :
if i < qrYield.RecordCount+PosInc-1 then begin
Excel.Rows.Item[i+1].Select;
Excel.Selection.Insert;