Бухгалтерский отчет

 

 

 

 

 

 

 

 

 

 

 

 

 

ЗАКЛЮЧЕНИЕ

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

      Модернизация и смена поколений вычислительной техники, переход на новые операционные системы, обновление версий прикладных программ и т.п. является характерной особенностью современной компьютеризации. в настоящее время повсеместно внедряются компьютерные сети (локальные, региональные, глобальные ), благодаря которым обеспечен удаленный доступ к общесетевым ресурсам ( базам данных, компьютерам, принтерам, факс-модемам и др. )

«1С: Бухгалтерия предприятия 8.0» помогает вести учет различных  видов коммерческой деятельности . Каким бы бизнесом ни занималась ваша организация - оптовой или розничной торговлей, комиссионной торговлей, оказанием услуг, производством или строительством - вы можете вести учет в «1С:Бухгалтерии предприятия 8.0». В одной информационной базе можно вести учет деятельности нескольких организаций и индивидуальных предпринимателей. При этом используются общие справочники контрагентов, сотрудников и номенклатуры, а отчетность формируется раздельно.

Большинство российских компаний уже оптимизировало работу своей  бухгалтерии с помощью «1С» и  почувствовали преимущества, которые  дает эта программа. Это гибкие возможности  учета, автоматизация всех участков бухгалтерии.

·  «1С: Бухгалтерия предприятия 8.0» облегчает работу бухгалтера, автоматизируя самые трудоемкие и рутинные процессы;

·   существенно упрощает подготовку бухгалтерской и налоговой отчетности;

·  обеспечивает прозрачный и понятный учет в строгом соответствии с законодательством и потребностями реального бизнеса;

·  может использоваться в любой организации: как в небольших фирмах, так и в холдингах со сложной организационной структурой, охватывая все сферы их деятельности;

·  выпускается в двух вариантах — файловом и «клиент-сервер» . Файловая версия эффективно работает в многопользовательском режиме на небольших предприятиях, клиент-серверная версия обеспечивает эффективную работу на десятках и сотнях компьютеров одновременно.

      "1С: Бухгалтерия предприятия 8.0" предназначена для бухгалтеров, однако позволяет сделать более эффективной работу не только бухгалтерии, но других Руководитель получает возможность регулярного анализа и контроля финансовой информации, благодаря прозрачности учета на всех его этапах. При этом программа предоставляет возможность ограничения доступа к данным в соответствии с должностными обязанностями сотрудников. Использование такой возможности способствует сохранению коммерческой тайны. Руководитель может быть уверен в соответствии всех отчетных документов законодательным нормам. Система легко развивается вместе с бизнесом, ее настройка под вновь возникающие требования не требует крупных затрат времени и денег.

      "1С: Бухгалтерия предприятия 8.0» поможет работать всем сотрудникам предприятия единой командой, организовать четкое взаимодействие в едином информационном пространстве.

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

«1С: Бухгалтерия предприятия 8.0» является готовым решением, позволяющим  вести учет без дополнительных доработок  и настроек. При этом система может  быть адаптирована к любым особенностям учета на конкретном предприятии. Для  этого в программе есть специальный конфигуратор, который поможет усовершенствовать работу «1С» специально под специфику учета предприятия.

Практическое ознакомление помогло мне узнать о различных  возможностях программы «1С: Бухгалтерия  предприятия 8.0», в частности о  банковских операциях, видах документов, способах их оформления и заполнения. В “1С: Бухгалтерии предприятия 8”  реализован учёт движения наличных и  безналичных денежных средств. Места  хранения безналичных денежных средств предприятия — расчетные счета в банках — отображаются в информационной базе как элементы списка банковских счетов предприятия. Реализован механизм обмена информацией с программами типа “клиент-банк”. Поддерживается ввод и печать платёжных поручений, приходных и расходных кассовых ордеров.

      Считаю, что полученных знаний достаточно для работы в программе, непосредственного их применения.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

СПИСОК ЛИТЕРАТУРЫ

 

1. Байдаков В., Дранищев В, Краюшкин А, Кузнецов И, Лавров М, Моничев А. 1С:Предприятие 8.0 Описание встроенного языка. В 4-х томах.- М.: Фирма «1С», 2004. -2575с.
2. Белоусов  П.С., Островерх А.В. 1С:Предприятие 8.0 от 8.1. Практическое пособие. –М.:000 «1С-ПАБЛИШИНГ»,2008. -286с.: ил.
3. Буренин Н.С., Волкодаева М.В., Губанов А.Ф., Двинянина О.В. Звягина Н.Н., Казанцева Т.С., Катчан Я.С., Нахимовская И.Н., Полуэктова М.М., Трещалов О.Л., Турбин А.С., Цибульский В.В., Шитяков П.М., Хуршудян Л.Г. Методическое пособие по расчету, нормированию и контролю выбросов вредных(загрязняющих) веществ в атмосферный воздух. - СПб.: НИИ Атмосфера, 2005. -210 с.
4. Верес Л.И. Сборник методик по расчетам выбросов в атмосферу различными производствами.
5. Габец А.П. Решение оперативных задач. Методические материалы для слушателя сертифицированного курса.
6. Габец А. П., Гончаров Д. И. 1С:Предприятие 8.0. Простые примеры разработки.
7. Габец А. П., Гончаров Д. И., Козырев Д.В., Кухлевский Д.С., Радченко М.Г. Профессиональная разработка в системе 1С:Предприятие 8. - М.: ООО «1С-Паблишинг».
8. Гаврилов А.Ф. Уменьшение вредных выбросов при очистке паровых котлов. -М.: Энергоатомиздат.
9. Гладкий А. А. 1C: Предприятие 8.0.
10. Зыков А.К. Паровые и водогрейные котлы: Справочное пособие. -М.: Энергоатомиздат.
11. Методика определения выбросов загрязняющих веществ в атмосферу при сжигании топлива в котлах производительностью менее 30 тонн пара в час или менее 20 Гкал в час.
12. Митичкин С.А. Разработка в системе 1С Предприятие 8.0.- М.: ООО «1С-Паблишинг».
13. Радченко М.Г. 1С:Предприятие 8.0. Практическое пособие разработчика. Примеры и типовые приемы. - М.:, ООО «1С-Паблишинг».
14. Радченко М.Г. 1С:Предприятие 8.1. Практическое пособие разработчика. Примеры и типовые приемы. - М.:, ООО «1С-Паблишинг».
15. Сущеня В.В. Решение задач расчета зарплаты и учета персонала. Методические материалы для слушателя сертифицированного курса.

 

 

 

 

 

 

 

ПРИЛОЖЕНИЕ А.

Листинг программы

unit About;

 

interface

 

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

 

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProductName: TLabel;

Version: TLabel;

Comments: TLabel;

OKButton: TButton;

Label1: TLabel;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

AboutBox: TAboutBox;

 

implementation

uses Main, InformUnit;

 

{$R *.dfm}

 

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

close;

MainForm.Show;

InformForm.Show;

end;

 

end.

 

unit InformUnit;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, Buttons;

 

type

TInformForm = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox1: TGroupBox;

DBGrid2: TDBGrid;

GroupBox2: TGroupBox;

DBNavigator2: TDBNavigator;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

GroupBox3: TGroupBox;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

GroupBox4: TGroupBox;

GroupBox5: TGroupBox;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

BitBtn1: TBitBtn;

Panel1: TPanel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

InformForm: TInformForm;

 

implementation

 

uses Main;

 

{$R *.dfm}

 

procedure TInformForm.BitBtn1Click(Sender: TObject);

begin

informform.Hide;

end;

 

end.

 

 

unit Main;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, ActnMan,

ActnCtrls, Menus, Grids, DBGrids, DBCtrls, QuickRpt, QRCtrls, DBTables,

DB, AppEvnts, Buttons, jpeg;

 

type

TMainForm = class(TForm)

TreeView1: TTreeView;

WorkArea: TPanel;

Panel2: TPanel;

GroupBox1: TGroupBox;

Memo1: TMemo;

DS_spisokB: TDataSource;

T_typeB: TTable;

T_products: TTable;

T_EI: TTable;

T_ProdinRec: TTable;

T_spisokB: TTable;

DS_EI: TDataSource;

Session1: TSession;

DS_ProdinRec: TDataSource;

DS_products: TDataSource;

DS_TypeB: TDataSource;

T_productsIdP: TIntegerField;

T_productsNameProduct: TStringField;

T_productsKol_vo: TFloatField;

T_productsCenaP: TFloatField;

T_productsIdEI: TIntegerField;

T_productsRelatEI: TStringField;

T_spisokBIDB: TIntegerField;

T_spisokBNameB: TStringField;

T_spisokBCenaB: TFloatField;

T_spisokBIdTB: TIntegerField;

T_spisokBFlagCur: TBooleanField;

T_spisokBRelatTypeB: TStringField;

T_ProdinRecIDB: TIntegerField;

T_ProdinRecIDP: TIntegerField;

T_ProdinRecKol_voPvB: TFloatField;

T_ProdinRecRelatEIonP: TStringField;

T_ProdinRecRelatP: TStringField;

T_spisokBStoim: TFloatField;

T_ProdinRecRelatPCena: TFloatField;

DS_Zakaz: TDataSource;

T_zakaz: TTable;

T_zakazIDB: TIntegerField;

T_zakazKol_voZ: TIntegerField;

T_zakazRelatNB: TStringField;

T_EIIdEI: TIntegerField;

T_EINameEI: TStringField;

T_typeBIdTB: TIntegerField;

T_typeBNameTB: TStringField;

BitBtn1: TBitBtn;

Image1: TImage;

BitBtn2: TBitBtn;

FontDialog1: TFontDialog;

T_zakazLU_CEnaB: TVariantField;

T_zakazCalc_stoim: TVariantField;

 

 

procedure T_spisokBFlagCurGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

procedure T_spisokBFlagCurSetText(Sender: TField; const Text: String);

procedure T_spisokBCalcFields(DataSet: TDataSet);

procedure T_zakazRelatNBSetText(Sender: TField; const Text: String);

procedure T_zakazKol_voZSetText(Sender: TField; const Text: String);

procedure T_zakazAfterInsert(DataSet: TDataSet);

procedure T_zakazAfterPost(DataSet: TDataSet);

procedure T_spisokBAfterInsert(DataSet: TDataSet);

procedure T_spisokBBeforeInsert(DataSet: TDataSet);

procedure T_spisokBAfterPost(DataSet: TDataSet);

procedure T_productsBeforeInsert(DataSet: TDataSet);

procedure T_productsAfterInsert(DataSet: TDataSet);

procedure T_productsAfterPost(DataSet: TDataSet);

procedure T_EIBeforeInsert(DataSet: TDataSet);

procedure T_EIAfterInsert(DataSet: TDataSet);

procedure T_EIAfterPost(DataSet: TDataSet);

procedure T_typeBBeforeInsert(DataSet: TDataSet);

procedure T_typeBAfterInsert(DataSet: TDataSet);

procedure BitBtn2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure TreeView1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure T_zakazCalcFields(DataSet: TDataSet);

 

private

{ Private declarations }

public

{ Public declarations }

end;

 

 

 

var

MainForm: TMainForm;

flager:byte;

mkeyvalue:integer;

implementation

 

uses InformUnit, RepMenu, ZakazUnit, RepZakaz, About;

 

{$R *.dfm}

 

procedure TMainForm.T_spisokBFlagCurGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

begin

If T_spisokBFlagCur.Value then text:='+'

else text:='-';

end;

 

procedure TMainForm.T_spisokBFlagCurSetText(Sender: TField;

const Text: String);

begin

T_spisokBFlagCur.Value:=false;

if text='+' then T_spisokBFlagCur.Value:=True;

if text='-' then T_spisokBFlagCur.Value:=False;

 

end;

{Подсчет стоимости блюда}

procedure TMainForm.T_spisokBCalcFields(DataSet: TDataSet);

var s1:real;

begin

s1:=0;

While not (T_ProdinRec.Eof) do begin

S1:=S1+T_ProdinRecRelatPCena.value*T_ProdinRecKol_voPvB.Value;

T_ProdinRec.Next;

end;

T_spisokBStoim.value:=T_spisokBCenaB.value+S1;

end;

 

procedure TMainForm.T_zakazRelatNBSetText(Sender: TField; const Text: String);

begin

 

With T_spisokB do

if Locate('NameB',Text,[]) then begin

T_zakazIDB.value:=T_spisokBIDB.Value;

T_zakazIDB.RefreshLookupList;

end;

 

end;

{**********************************************************8}

procedure TMainForm.T_zakazKol_voZSetText(Sender: TField; const Text: String);

var number:integer;prodZak:real;flag:boolean;

begin

flag:=true;

number:=strtoint(Text);

ZakazForm.memo1.Clear;

If not(strtoInt(Text) in [1..50]) then ZakazForm.memo1.Lines.Text:='Количество блюд превзошло разумные пределы!'

 

else begin

 

 

T_spisokB.locate('IDB',T_zakazIDB.value,[]); {Нашли блюдо}

T_ProdinRec.First;

{Оценивающий цикл}

{} While not(T_ProdinRec.Eof) and flag do begin {Ищем запись продукта}

if T_products.Locate('IDP',T_ProdinRecIDP.Value,[]) then

{Сравниваем заказанное и наличествующее}

{} begin

ProdZak:=T_ProdinRecKol_voPvB.Value*number;

if ProdZak<T_productsKol_vo.Value then flag:=true

else flag:=false;

end;

T_ProdinRec.Next;

end;

{Проверка}

T_ProdinRec.First;

 

if flag then

{} begin

{Редактирующий цикл}

{} While not(T_ProdinRec.Eof) do begin {Ищем запись продукта}

if T_products.Locate('IDP',T_ProdinRecIDP.Value,[]) then

{} begin

ProdZak:=T_ProdinRecKol_voPvB.Value*(number-T_zakazKol_voZ.Value);

T_products.Edit;

T_productsKol_vo.Value:=T_productsKol_vo.Value-ProdZak;

T_products.Post;

end;

T_ProdinRec.Next;

end;

 

T_zakazKol_voZ.Value:=number

end

else begin

ZakazForm.memo1.Lines.Text:='Заказ превысил количество продуктов! Пожалуйста, повторите ввод';

T_zakazKol_voZ.Value:=1;

ZakazForm.DBGrid1.Refresh;

end;

 

end;

 

 

 

end;

 

procedure TMainForm.T_zakazAfterInsert(DataSet: TDataSet);

begin

T_zakazKol_voZ.Value:=1;

end;

 

procedure TMainForm.T_zakazAfterPost(DataSet: TDataSet);

var money,sum:real;MMark:TBookMark;

begin

try

money:=strtofloat(ZakazForm.MaskEdit1.Text);

except

ZakazForm.maskEdit1.Text:='';

ZakazForm.maskEdit1.ReadOnly:=True;

ZakazForm.maskEdit1.Color:=clBtnFace;

end;

sum:=0;

if money<>0 then begin

MMark:=T_zakaz.GetBookmark;

T_zakaz.First;

while not(T_zakaz.Eof) do begin

T_spisokB.locate('IDB',T_zakazIDB.value,[]); {Нашли блюдо}

sum:=T_spisokBStoim.Value*T_zakazKol_voZ.value+sum;

T_zakaz.Next;

end;

if T_zakaz.BookmarkValid(mmark) then T_zakaz.GotoBookmark(mmark);

if T_zakaz.BookmarkValid(mmark) then T_zakaz.FreeBookmark(mmark);

if sum>money then ZakazForm.memo1.Lines.Text:='Заказ превысил денежный предел!'

else ZakazForm.memo1.Clear;

end;

 

end;

 

{****************************SpisokB**********************888}

procedure TMainForm.T_spisokBAfterInsert(DataSet: TDataSet);

begin

T_spisokB.edit;

T_spisokBIDB.Value:=MKeyvalue;

T_spisokBFlagCur.Value:=false;

T_spisokBIdTB.Value:=1;

T_spisokB.Post;

InformForm.DBGrid1.Refresh;

end;

 

procedure TMainForm.T_spisokBBeforeInsert(DataSet: TDataSet);

begin

MKeyvalue:=0;

repeat

MKeyvalue:=MKeyvalue+1;

until varType(T_spisokB.lookup('IDB',MKeyvalue,'IDB'))=varnull;

 

end;

 

procedure TMainForm.T_spisokBAfterPost(DataSet: TDataSet);

begin

T_spisokB.Refresh;

end;

{****************************Products********************888}

 

procedure TMainForm.T_productsBeforeInsert(DataSet: TDataSet);

begin

MKeyvalue:=0;

repeat

MKeyvalue:=MKeyvalue+1;

until varType(T_products.lookup('IDP',MKeyvalue,'IDP'))=varnull;

 

end;

 

procedure TMainForm.T_productsAfterInsert(DataSet: TDataSet);

begin

T_products.edit;

T_productsIDP.Value:=MKeyvalue;

T_productsIdEI.Value:=1;

T_products.Post;

InformForm.DBGrid3.Refresh;

end;

 

procedure TMainForm.T_productsAfterPost(DataSet: TDataSet);

begin

T_products.Refresh;

end;

{*********************TypeB****************************}

 

procedure TMainForm.T_EIBeforeInsert(DataSet: TDataSet);

begin

MKeyvalue:=0;

repeat

MKeyvalue:=MKeyvalue+1;

until varType(T_EI.lookup('IdEI',MKeyvalue,'IdEI'))=varnull;

end;

 

procedure TMainForm.T_EIAfterInsert(DataSet: TDataSet);

begin

T_EI.edit;

T_EIIdEI.Value:=MKeyvalue;

T_EINameEI.Value:=' ';

T_EI.Post;

InformForm.DBGrid5.Refresh;

end;

 

procedure TMainForm.T_EIAfterPost(DataSet: TDataSet);

begin

T_EI.Refresh;

end;

{*********************TypeB****************************}

 

procedure TMainForm.T_typeBBeforeInsert(DataSet: TDataSet);

begin

MKeyvalue:=0;

repeat

MKeyvalue:=MKeyvalue+1;

until varType(T_typeB.lookup('IdTB',MKeyvalue,'IdTB'))=varnull;

end;

 

procedure TMainForm.T_typeBAfterInsert(DataSet: TDataSet);

begin

T_typeB.edit;

T_typeBIdTB.Value:=MKeyvalue;

T_typeBNameTB.Value:=' ';

T_typeB.Post;

InformForm.DBGrid4.Refresh;

end;

 

 

procedure TMainForm.BitBtn2Click(Sender: TObject);

begin

AboutBox.showmodal;

end;

 

procedure TMainForm.FormShow(Sender: TObject);

begin

memo1.Text:='Добро пожаловать  в программу "Ресторан"';

end;

{-------------------------------------------------}

procedure TMainForm.TreeView1Click(Sender: TObject);

var F:integer;

begin

{определение текущей выделеннки}

for f:=0 to 15 do if TreeView1.Items[f].Selected then break;

memo1.Clear;

case f of

0:begin

ZakazForm.Show;

InformForm.Hide;

Aboutbox.Hide;

memo1.Text:='Ведение заказов';

end;

1:begin

InformForm.Show;Aboutbox.Hide;

InformForm.PageControl1.ActivePageIndex:=0;