Orgs.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]:=«шт»;. Cells [i + PosInc, 4]:=dstJobs.FieldByName («Кількість»). AsFloat;. Cells [i + PosInc, 5]:=dstJobs.FieldByName («Вартість» ;). AsCurrency;. Cells [i + PosInc, 6]:=dstJobs.FieldByName («Сума»). AsCurrency; (i);:=Sum + dstJobs.FieldByName («Сума»). AsCurrency;. Next ;;// While not dstJobs.Eof
/ / Цикл по МТР:. First; not dstOrderParts.Eof do
/ / Додавання нового рядка для МТР:
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]:=dstOrderParts.FieldByName («Матеріал»). AsString;. Cells [i + PosInc, 3]:=tbParts.FieldByName («ЕдІзм»). AsString;. Cells [i + PosInc, 4]:=dstOrderParts.FieldByName («Кількість»). AsFloat;. Cells [i + PosInc, 5]:= dstOrderParts.FieldByName («Ціна»). AsCurrency;. Cells [i + PosInc, 6]:=dstOrderParts.FieldByName («Сума»). AsCurrency; (i);:=Sum + dstOrderParts.FieldByName («Сума» ;). AsCurrency;. Next;;// While not dstJobs.Eof.Cells [i + PosInc, 6]:=Sum;. Cells [i + PosInc +1,6]:=Sum/118 * 18;. Cells [i + PosInc +3,2] :=SumToTxt (Format («% .2 f», [Sum]));
/ / Висновок реквізитів в шапку:. tbInfo.Open;. Cells [1,1]:=DM.tbInfo.FieldByName («Найменування»). AsString + «,» +
DM.tbInfo.FieldByName («Адреса»). AsString + «, ІНН» +. TbInfo.FieldByName («ІПН»). AsString + «, КПП» +. TbInfo.FieldByName («КПП»). AsString;. Cells [2,1]:=DM.tbInfo.FieldByName («Реквізити»). AsString;. Cells [i + PosInc +5,3]:= DM.tbInfo.FieldByName («Гендиректор»). AsString;. tbInfo.Close;;// With.Visible:=True;. Quit;;. Cursor:=crDefault;
end;;
/ / Формування рахунку-фактури:
procedure Rep_Fact;: string;: Variant;, PosInc: Integer;: Currency;
/ / Шаблон зберігається в папці Шаблони ::=GetCurrentDir + « Templates « + »Рахунок-фактура.xlt«;:=CreateOleObject (»Excel.Application»);. Cursor:=crHourGlass;. Workbooks.Open (WorkbookName);
/ / Експорт даних з таблиці БД:
with DM do:=0;:=19;. Cells [4,2]:=FormatFloat («0000», dstOrders.FieldByName («NЗаказа»). AsInteger);. Cells [4,4]:=GetRightDate (DM.dstOrders.FieldByName («ДатаПріема»). AsDateTime);. Cells [10,2]:=dstOrders.FieldByName («Клієнт»). AsString + «,» +. TbOrgs.FieldByName («Адреса»). AsString;. Cells [11,2]:=«С» + FormatFloat («0000», dstOrders.FieldByName («NЗаказа»). AsInteger) +
« від » + DstOrders.FieldByName («ДатаПріема»). AsString;. Cells [12,2]:=dstOrders.FieldByName («Клієнт»). AsString;. Cells [13,2]:=DM.tbOrgs.FieldByName (« ; Адреса »). AsString;. Cells [14,2]:=DM.tbOrgs.FieldByName (« ІПН »). AsStrin...