казаний діапазон дат:
procedure Rep_MTR (Date1, Date2: TDate);, Categ: string;: Variant;, j, PosInc: Integer;, SumItogo: Currency;
/ / Додавання нової шапки таблиці для нової категорії МТР:
procedure AddHeader; DM.dstMTRList.FieldByName («Група»). AsString <> Categ then.Cells [i + PosInc, 7]:=Sum;:=0;:=0;(i,2);.Rows.Item[PosInc+i].Select;.Selection.Insert;.Selection.Insert;.Selection.Insert;.Selection.Insert;.Selection.Insert;.Rows.Item[3].Select;.Selection.Copy;.Rows.Item[PosInc+i].Select;.ActiveSheet.Paste;.Rows.Item[4].Select;.Selection.Copy;.Rows.Item[PosInc+i+1].Select;.ActiveSheet.Paste;.Rows.Item[5].Select;.Selection.Copy;.Rows.Item[PosInc+i+2].Select;
Excel.ActiveSheet.Paste;
/ / Копіювання рядка «Разом»:
Excel.Rows.Item [PosInc + i - 2]. Select;. Selection.Copy;. Rows.Item [PosInc + i +3]. Select;. ActiveSheet.Paste;. Application. CutCopyMode:=False;:=DM.dstMTRList.FieldByName («Група»). AsString;. Cells [PosInc + i, 3]:=Categ; (i, 2);;;
/ / Шаблон зберігається в папці Шаблони ::=GetCurrentDir + « Templates « + »Потреба МТР.xlt«;:=CreateOleObject (»Excel.Application»);. Cursor:=crHourGlass;. Workbooks.Open (WorkbookName);
/ / Експорт даних з таблиці БД:
with DM do:=0;
SumItogo:=0;// Загальна сума МТР:=0;// Cумма по виду МТР:=5;. Cells [1,1]:=«Потреба в МТР за період» + Chr (10) +
«с» + DateToStr (Date1) + « по » + DateToStr (Date2);
/ / Запит переліку потреби в МТР за заданий період:
dstMTRList.Parameters.ParamByName («pDate1»). Value:=Date1;. Parameters.ParamByName («pDate2»). Value:=Date2;. Parameters.ParamByName («pDate11» ). Value:=Date1;. Parameters.ParamByName («pDate22»). Value:=Date2;. Open;. First;:=dstMTRList.FieldByName («Група»). AsString;. Cells [3,3] :=Categ;
/ / Цикл по МТР: not dstMTRList.Eof do
AddHeader;
/ / Додавання нового рядка для МТР:
if j <> 0 then.Rows.Item[PosInc+i].Select;.Selection.Insert;.Rows.Item[5].Select;.Selection.Copy;.Rows.Item[PosInc+i].Select;.ActiveSheet.Paste;.Application.CutCopyMode :=False;;. Cells [i + PosInc, 1]:=j +1;. Cells [i + PosInc, 2]:=FormatFloat («0000», dstMTRList.FieldByName («МЦ_ID»). AsInteger) ;. Cells [i + PosInc, 3]:=dstMTRList.FieldByName («Найменування»). AsString;. Cells [i + PosInc, 4]:=dstMTRList.FieldByName («ЕдІзм»). AsString;. Cells [ i + PosInc, 5]:=dstMTRList.FieldByName («Кількість»). AsFloat;. Cells [i + PosInc, 6]:=dstMTRList.FieldByName («Ціна»). AsCurrency;. Cells [i + PosInc, 7]:=dstMTRList.FieldByName («Сума»). AsCurrency;:=Sum + dstMTRList.FieldByName («Сума»). AsCurrency;:=SumItogo + dstMTRList.FieldByName («Сума»). AsCurrency; (i ); (j);. Next;;// While not dstMTRList.Eof.Close;. Cells [i + PosInc, 7]:=Sum;. Cells [i +7,7]:=SumItogo;;// With.Visible:=True;. Quit;;. Cursor:=crDefault;
end;;
/ / Формування списку виконаних робіт за вказаний діапазон дат:
procedure Rep_JobList (Date1, Date2: TDate);: string;: Variant;, PosInc: Integer;: Currency;
begin
/ / Шаблон зберігається...