Реферат Розробка ІС обліку охоронюваних об'єктів ЧОП "Рубіж-М"

Тема: Новые рефераты

g +«/» +. TbOrgs.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]:=dstJobs.FieldByName («Робота»). AsString;. Cells [i + PosInc, 2]:=«шт»;. Cells [i + PosInc , 3]:=dstJobs.FieldByName («Кількість»). AsFloat;. Cells [i + PosInc, 4]:=dstJobs.FieldByName («Вартість»). AsCurrency;. Cells [i + PosInc, 5]: =dstJobs.FieldByName («Сума»). AsCurrency / 118 * 100;. Cells [i + PosInc, 8]:=dstJobs.FieldByName («Сума»). AsCurrency / 118 * 18;. Cells [i + PosInc , 9]:=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]:=dstOrderParts.FieldByName («Матеріал»). AsString;. Cells [i + PosInc, 4]:=tbParts.FieldByName («ЕдІзм»). AsString ;. Cells [i + PosInc, 3]:=dstOrderParts.FieldByName («Кількість»). AsFloat;. Cells [i + PosInc, 4]:=dstOrderParts.FieldByName («Ціна»). AsCurrency / 118 * 100 ;. Cells [i + PosInc, 5]:=dstOrderParts.FieldByName («Сума»). AsCurrency / 118 * 100;. Cells [i + PosInc, 8]:=dstOrderParts.FieldByName («Сума»). AsCurrency/118 * 18;. Cells [i + PosInc, 9]:=dstOrderParts.FieldByName («Сума»). AsCurrency; (i);:=Sum + dstOrderParts.FieldByName («Сума»). AsCurrency;. Next ;;// While not dstJobs.Eof.Cells [i + PosInc, 9]:=Sum / 118 * 18;. Cells [i + PosInc, 9]:=Sum;

/ / Висновок реквізитів:. tbInfo.Open;. Cells [6,2]:=DM.tbInfo.FieldByName («Найменування»). AsString;. Cells [7,2]:= DM.tbInfo.FieldByName («Адреса»). AsString;. Cells [8,2]:=DM.tbInfo.FieldByName («ІПН»). AsString + «/» +. TbInfo.FieldByName («КПП»). AsString;. Cells [9,3]:=DM.tbInfo.FieldByName («Найменування»). AsString +

«,» + DM.tbInfo.FieldByName («Адреса»). AsString;. Cells [i + PosInc +3,4]:=DM.tbInfo.FieldByName («Гендиректор»). AsString;. Cells [i + PosInc +3 , 10]:=DM.tbInfo.FieldByName («ГлавБух»). AsString;. tbInfo.Close;;// With.Visible:=True;. Quit;;. Cursor:=crDefault;

end;;

/ / Функція повертає дату формату «xx місяці xxxx р.»

function GetRightDate (ADate: TDateTime): string;: string; MonthOf (ADate) of

: Month:=«січня»;

: Month:=«Лютий»;

: Month:=«Березня»;

: Month:=«апреля»;

: Month:=«травня»;

: Month:=«Червень»;

: Month:=«Липень»;

: Month:=«Серпень»;

: Month:=«сентября»;