eText (Text:=DM.tbInfo.FieldByName («Найменування»). AsString);. Selection.Goto (Name:=«Орг2»);. Selection.TypeText (Text:=DM.tbInfo.FieldByName («Найменування»). AsString);. Selection.Goto (Name:=«юрадресою»);. Selection. TypeText (Text:=DM.tbInfo.FieldByName («Адреса»). AsString);. Selection.Goto (Name:=«ПочтАдрес»);. Selection.TypeText (Text:=DM.tbInfo.FieldByName (« Адреса »). AsString);. Selection.Goto (Name: =« ІПН »);. Selection.TypeText (Text:=DM.tbInfo.FieldByName (« ІПН »). AsString);. Selection.Goto (Name :=«Реквізити»);. Selection.TypeText (Text:=DM.tbInfo.FieldByName («Реквізити»). AsString);. Selection.Goto (Name:=«Гендіра»);. Selection.TypeText ( Text:=DM.tbInfo.FieldByName («Гендиректор»). AsString);. Selection.Goto (Name:=«ГенДір2»);. Selection.TypeText (Text:=DM.tbInfo.FieldByName («Гендиректор» ). AsString);. tbInfo.Close;. Visible:=True;. Quit;;. Cursor:=crDefault;
end;;
/ / Формування списку робіт за Договором (додатки до Договору):
procedure Rep_Appendix;: string;: Variant;, j, PosInc: Integer;, SumItogo: Currency;
/ / Шаблон зберігається в папці Шаблони ::=GetCurrentDir + « Templates « + »Прил до Договору.xlt«;:=CreateOleObject (»Excel.Application»);. Cursor:=crHourGlass;. Workbooks.Open (WorkbookName);
/ / Експорт даних з таблиці БД:
with DM do:=0;
j:=0;:=0;// Загальна сума робіт:=7;
Excel.Cells [1,4]:=FormatFloat («0000», dstOrders.FieldByName («NЗаказа»). AsInteger) +
« від » + GetRightDate (dstOrders.FieldByName («ДатаПріема»). AsDateTime);. Cells [3,2]:=dstOrders.FieldByName («Клієнт»). AsString;
/ / Цикл по роботах:. 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 («Працівник»). AsString;. Cells [i + PosInc, 4]:=dstJobs.FieldByName («Вартість»). AsCurrency;. Cells [i + PosInc, 5]:= FormatFloat («0,00», dstJobs.FieldByName («Кількість»). AsFloat);. Cells [i + PosInc, 6]:=dstJobs.FieldByName («Сума»). AsCurrency; (i);: =Sum + dstJobs.FieldByName («Сума»). AsCurrency;. Next;;// While not dstJobs.Eof.Cells [i + PosInc, 6]:=Sum; (i, 4);:=SumItogo + Sum;
/ / Цикл по МТР:. First;:=0;// Сума МТРnot dstOrderParts.Eof do
begin
/ / Додавання нового рядка для МТР:
if j <> 0 then.Rows.Item [PosInc + i]. Select;. Selection.Insert;. Rows.Item [PosInc + i - 1]. Select;. Selection.Copy;. Rows.Item [PosInc + i]. Select; . ActiveSheet.Paste;. Application.CutCopyMode:=False;;. Cells [i + PosInc, 1]:=j +1;. Cells [i + PosInc, 2]:=dstOrderParts.FieldByName («Матеріал»). AsString;. Cells [i + PosInc, 3]:=tbParts.FieldByName («ЕдІзм»). AsString;. Cells [i + PosInc, 4]:=dstOrderParts.FieldByName («Ціна»). AsCurrency;. Cells [i + PosInc, 5]:=FormatFloat («0,00», dstOrderParts.FieldByName («Кількіс...
