Разработка автоматизированной информационной системы на примере "МегионСофтОйл"

Дипломная работа - Компьютеры, программирование

S);:=IntToStr(UDataM.DataM.ADOQReportPOЗАКАЗЫНомерЗаказа.Value); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,2).Range.InsertBefore(S);

S:=DateToStr(UDataM.DataM.ADOQReportPOДатаЗаказа.Value); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,3).Range.InsertBefore(S);

S:=UDataM.DataM.ADOQReportPOКлиент.Value; UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,4).Range.InsertBefore(S);

S:=UDataM.DataM.ADOQReportPOИмяПО.Value; UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,5).Range.InsertBefore(S);

S:=UDataM.DataM.ADOQReportPOСтатус.Value; UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,6).Range.InsertBefore(S);

S:=Format(%m,[UDataM.DataM.ADOQReportPOЦена.Value]); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,7).Range.InsertBefore(S);

S:=IntToStr(UDataM.DataM.ADOQReportPOСкидка.Value); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,8).Range.InsertBefore(S);

Sum:=UDataM.DataM.ADOQReportPOЦена.Value;

Sum:=Sum-(Sum*UDataM.DataM.ADOQReportPOСкидка.Value/100);

S:=Format(%m,[Sum]); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,9).Range.InsertBefore(S);

UDataM.DataM.WordDoc.Tables.Item(2).Rows.Add(EmptyParam);

if UDataM.DataM.ADOQReportPOСтатус.Value=выполнено then

SumVZ:=SumVZ+Sum;

if UDataM.DataM.ADOQReportPOСтатус.Value=в разработке then

SumNVZ:=SumNVZ+Sum;

inc(n);

Next;

end;

UDataM.DataM.WordDoc.Tables.Item(2).Rows.Item(n+1).Delete;

S:=Format(%m,[SumVZ]); UDataM.DataM.WordDoc.Tables.Item(3).Cell(1,2).Range.InsertBefore(S);

S:=Format(%m,[SumNVZ]); DataM.DataM.WordDoc.Tables.Item(3).Cell(2,2).Range.InsertBefore(S);

S:=Format(%m,[SumVZ+SumNVZ]);

DataM.DataM.WordDoc.Tables.Item(3).Cell(3,2).Range.InsertBefore(S);

Except

begin

ShowMessage(Шаблон документа "Отчет ПО" не найден!);

UDataM.DataM.WordApp.Disconnect;

Application.Restore;

exit;

end;

UDataM.DataM.WordApp.Disconnect;

Application.Restore;

end;.