-- Шаблон создан мастером бланков
-- 27.01.2005 16:31:49
--
БланкСШаблоном "Вспомогательные процедуры для работы с текстовым планом счетов";
var Src :S;
var Dest:S;
var Run :L;

Proc btnДобавить_OnClick(Sender: String);
 Close;
end;

Proc AfterOpen(Destroy: Logical);
 if Run=False: Close; fi;
 Run=False;
 if ExistFile(Src)=False: Message("Ошибка ! Файл источник '"+Src+"' не найден."); Close; fi;
end;

Proc OnClose(Destroy: Logical);
 if ExistFile(Dest)=True: DeleteFile(Dest); fi;
 CopyFile(Src,Dest);
end;

Конец
