Гарантийные обязательства не распространяются

· Обычный износ;

· Повреждения в результате аварии;

· Узлы (детали), поврежденные в результате неправильного использования автомобиля;

· Преждевременный износ, вызванный повторным использованием крепежных деталей, грязезащитных пыльников, поврежденных жестких упоров, резиновых втулок и т.д.;

· Дефекты, имеющие место в результате отсутствия или неправильного проведения технического обслуживания автомобиля, а также при наличии следов механического повреждения и следов разборки гарантийного узла.

C условиями гарантии ознакомлен Подпись клиента ________________

Приложение 3

// расчет итоговой стоимости заказа (с учетом скидки)

procedure TfmAddZakaz.TotalCost;

var

i: Integer;

sum: real;

begin

dbeGosZnak.Enabled:= (ds_R.RecordCount = 0) and (dsl.RecordCount = 0);

qSelDiscount.ParamByName('d_id').AsInteger:= qSelMarka.Fields[1].AsInteger;

qSelDiscount.ExecQuery;

sum:= 0;

dsl.First;

for i:= 1 to dsL.RecordCount do

begin

sum:= sum + dsl.FieldValues['cost'];

dsl.Next;

end;

ds_R.First;

for i:= 1 to ds_R.RecordCount do

begin

sum:= sum + ds_R.FieldValues['cost'];

ds_R.Next;

end;

dbeTotalCost.Value:= sum - (sum * qSelDiscount.Fields[0].AsInteger / 100);

end;

Приложение 4

// удаление заказа

procedure TfmZakaz.actDeleteExecute(Sender: TObject);

begin

if (dsetMain.State = dsEdit) or (dsetMain.State = dsInsert) then dsetMain.Post;

bmMain:= dsetMain.GetBookmark;

if MessageDlg('Вы действительно хотите удалить данную запись?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin

qDel1.ParamByName('z_id').AsInteger:= dsetMainID.AsInteger;

qDel1.ExecQuery;

qDel2.ParamByName('z_id').AsInteger:= dsetMainID.AsInteger;

qDel2.ExecQuery;

dsetMain.Delete;

ShowMessage('Данные были успешно удалены из базы данных!');

end;

actRefreshExecute(Sender);

dsetMain.GotoBookmark(bmMain);

end;

// редактирование заказа

procedure TfmZakaz.actEditExecute(Sender: TObject);

begin

if (dsetMain.State = dsEdit) or (dsetMain.State = dsInsert) then dsetMain.Post;

DBGrid.Columns.BeginUpdate;

bmMain:= dsetMain.GetBookmark;

actAdd.Tag:= 0;

Application.CreateForm(TfmAddZakaz, fmAddZakaz);

fmAddZakaz.ShowModal;

DBGrid.Columns.EndUpdate;

actRefreshExecute(Sender);

dsetMain.GotoBookmark(bmMain);

end;

// печать гарантийного талона

procedure TfmZakaz.actPrintGarantyExecute(Sender: TObject);

begin

PrintGaranty.InFile:= ExtractFilePath(Application.ExeName) + 'Гарантийный талон.rtf';

PrintGaranty.OutFile:= ExtractFilePath(Application.ExeName) + 'Гарантийный талон (на печать).rtf';

if dsetMain.RecordCount > 0 then PrintGaranty.ExecuteOpen([dsetMain],SW_SHOW);

end;

// печать платежной квитанции

procedure TfmZakaz.actPrintRepExecute(Sender: TObject);

var

bm: Pointer;

begin

if fReport.LoadFromFile(ExtractFilePath(Application.ExeName) + 'frKvitok.fr3') then

begin

bm:= dsetMain.GetBookmark;

dsetMain.ParamByName('FILTER').Value:= 'ID=' + dsetMainID.AsString;

dsetMain.CloseOpen(true);

fReport.PrepareReport(true);

fReport.ShowPreparedReport;

dsetMain.ParamByName('FILTER').SetDefMacroValue;

dsetMain.CloseOpen(true);

dsetMain.GotoBookmark(bm);

end else ShowMessage('Ошибка: файл отчёта не найден!');

end;

Дата добавления: 2015-06-29