ть»). AsFloat);. Cells [i + PosInc, 6]:=dstOrderParts.FieldByName («Сума» ). AsCurrency; (j); (i);:=Sum + dstOrderParts.FieldByName («Сума»). AsCurrency;. Next;;// While not dstJobs.Eof.Cells [i + PosInc, 6]:=Sum;:=SumItogo + Sum;. Cells [i + PosInc +2,6]:=SumItogo;. Cells [i + PosInc +4, 2]:=SumToTxt (Format («% .2 f», [SumItogo]));. Cells [i + PosInc +5,4]:=dstOrders.FieldByName («Працівник»). AsString;;// With.Visible:=True;. Quit;;. Cursor:=crDefault;
end;;
/ / Формування акту здачі-приймання:
procedure Rep_Act;: string;: Variant;, PosInc: Integer;: Currency;
/ / Шаблон зберігається в папці Шаблони ::=GetCurrentDir + « Templates « + »Акт.xlt«;:=CreateOleObject (»Excel.Application»);. Cursor:=crHourGlass;. Workbooks.Open (WorkbookName);
/ / Експорт даних з таблиці БД:
with DM do:=0;
PosInc:=14;
/ / Висновок реквізитів в шапку:. tbInfo.Open;. Cells [1,1]:=DM.tbInfo.FieldByName («Найменування»). AsString;
Excel.Cells [2,1]:=DM.tbInfo.FieldByName («Адреса»). AsString;. Cells [3,1]:=«ІПН» + DM.tbInfo.FieldByName («ІПН»). AsString +
«, КПП» + DM.tbInfo.FieldByName («КПП»). AsString;. Cells [7,2]:=DM.tbInfo.FieldByName («Найменування»). AsString;. TbInfo.Close;. Cells [8,2] :=dstOrders.FieldByName («Клієнт»). AsString;. Cells [9,2]:=dstOrders.FieldByName («Клієнт»). AsString;. Cells [5,3]:=FormatFloat («0000» , dstOrders.FieldByName («NЗаказа»). AsInteger) +
« від » + GetRightDate (DM.dstOrders.FieldByName («ДатаСдачі»). AsDateTime);
/ / Цикл по роботах:. First;
Sum:=0;// Сума работnot dstJobs.Eof do
begin
/ / Додавання нового рядка для продукції:
if i <> 0 then.Rows.Item[PosInc+i].Select;.Selection.Insert;.Rows.Item[PosInc].Select;.Selection.Copy;.Rows.Item[PosInc+i].Select;.ActiveSheet.Paste;.Application.CutCopyMode :=False;;. Cells [i + PosInc, 1]:=i +1;. Cells [i + PosInc, 2]:=dstJobs.FieldByName («Робота»). AsString;. Cells [i + PosInc, 3]:=dstJobs.FieldByName («Вартість»). AsCurrency;. Cells [i + PosInc, 4]:=FormatFloat («0,00», dstJobs.FieldByName («Кількість»). AsFloat);. Cells [i + PosInc, 5]:=dstJobs.FieldByName («Сума»). AsCurrency; (i);:=Sum + dstJobs.FieldByName («Сума»). AsCurrency;. Next;;// While not dstJobs.Eof.Cells [i + PosInc, 5]:=Sum;. Cells [i + PosInc +1,5]:=Sum/118 * 18;;// With.Visible:=True;. Quit;;. Cursor:=crDefault;;;
/ / Формування рахунку: Rep_Bill;: string;: Variant;, PosInc: Integer;: Currency;
begin
/ / Шаблон зберігається в папці Шаблони:
WorkbookName:=GetCurrentDir + « Templates « + »Счет.xlt«;:=CreateOleObject (»Excel.Application»);. Cursor:=crHourGlass;. Workbooks.Open (WorkbookName);
/ / Експорт даних з таблиці БД:
with DM do:=0;:=9;. Cells [4,2]:=FormatFloat («0000», dstOrders.FieldByName («NЗаказа»). AsInteger) + p>
« від » + DstOrders.FieldByName («ДатаПріема»). AsString;. Cells [6,2]:=dstOrders.FieldByName («Клієнт»). AsString + «, ІНН» +. TbOrgs.FieldByName («ІПН»). AsString + «, КПП» +. Tb...