АРМ бухгалтера "Учет основных средств"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
IF Koof<>0 Then Begin
DataModule1.Table13.Append;
DataModule1.Table9.Edit;
DataModule1.Table13.FieldByName(Old_Stoim).AsFloat:=DataModule1.Table9Bal_stoim.Value;
PolZnac:=DataModule1.Table9Bal_stoim.Value/100*Koof;
DataModule1.Table9Bal_stoim.Value:=DataModule1.Table9Bal_stoim.Value+PolZnac;
DataModule1.Table13.FieldByName(New_Stoim).AsFloat:=DataModule1.Table9Bal_stoim.Value;
DataModule1.Table13.FieldByName(Inventar).AsString:=DataModule1.Table9Inventar.Value;
DataModule1.Table13.FieldByName(Uhastoc).AsString:=DataModule1.Table9Uhastoc.Value;
DataModule1.Table13.FieldByName(DataRash).AsDateTime:=Date;
DataModule1.Table13.Post;
DataModule1.Table9.Post;
End;
DataModule1.Table9.Next;
End;
End;
IF RadioButton2.Checked=True Then Begin
DataModule1.Table6.First;
While not DataModule1.Table6.EOF Do Begin
IF DataModule1.Table6Kod.Value=1 Then Koof:=AHMRealSpinEdit1.Value;
IF DataModule1.Table6Kod.Value=2 Then Koof:=AHMRealSpinEdit2.Value;
IF DataModule1.Table6Kod.Value=3 Then Koof:=AHMRealSpinEdit3.Value;
IF DataModule1.Table6Kod.Value=4 Then Koof:=AHMRealSpinEdit4.Value;
IF DataModule1.Table6Kod.Value=5 Then Koof:=AHMRealSpinEdit5.Value;
IF DataModule1.Table6Kod.Value=6 Then Koof:=AHMRealSpinEdit6.Value;
IF DataModule1.Table6Kod.Value=7 Then Koof:=AHMRealSpinEdit7.Value;
IF DataModule1.Table6Kod.Value=8 Then Koof:=AHMRealSpinEdit8.Value;
IF DataModule1.Table6Kod.Value=9 Then Koof:=AHMRealSpinEdit9.Value;
IF Koof<>0 Then Begin
DataModule1.Table13.FieldByName(Old_Stoim).AsFloat:=DataModule1.Table6Bas_stoim.Value;
DataModule1.Table6.Edit;
PolZnac:=DataModule1.Table6Bas_stoim.Value/100*Koof;
DataModule1.Table6Bas_stoim.Value:=DataModule1.Table6Bas_stoim.Value-PolZnac;
DataModule1.Table13.FieldByName(New_Stoim).AsFloat:=DataModule1.Table6Bas_stoim.Value;
DataModule1.Table13.FieldByName(Inventar).AsString:=DataModule1.Table6Inventar.Value;
DataModule1.Table13.FieldByName(Uhastoc).AsString:=DataModule1.Table6Uhastoc.Value;
DataModule1.Table13.FieldByName(DataRash).AsDateTime:=Date;
DataModule1.Table13.Post;
DataModule1.Table6.Post;
End;
DataModule1.Table6.Next;
End;
DataModule1.Table9.First;
While not DataModule1.Table9.EOF Do Begin
IF DataModule1.Table9Kod.Value=1 Then Koof:=AHMRealSpinEdit1.Value;
IF DataModule1.Table9Kod.Value=2 Then Koof:=AHMRealSpinEdit2.Value;
IF DataModule1.Table9Kod.Value=3 Then Koof:=AHMRealSpinEdit3.Value;
IF DataModule1.Table9Kod.Value=4 Then Koof:=AHMRealSpinEdit4.Value;
IF DataModule1.Table9Kod.Value=5 Then Koof:=AHMRealSpinEdit5.Value;
IF DataModule1.Table9Kod.Value=6 Then Koof:=AHMRealSpinEdit6.Value;
IF DataModule1.Table9Kod.Value=7 Then Koof:=AHMRealSpinEdit7.Value;
IF DataModule1.Table9Kod.Value=8 Then Koof:=AHMRealSpinEdit8.Value;
IF DataModule1.Table9Kod.Value=9 Then Koof:=AHMRealSpinEdit9.Value;
IF Koof<>0 Then Begin
DataModule1.Table13.FieldByName(Old_Stoim).AsFloat:=DataModule1.Table9Bal_stoim.Value;
DataModule1.Table9.Edit;
PolZnac:=DataModule1.Table9Bal_stoim.Value/100*Koof;
DataModule1.Table9Bal_stoim.Value:=DataModule1.Table9Bal_stoim.Value-PolZnac;
DataModule1.Table13.FieldByName(New_Stoim).AsFloat:=DataModule1.Table9Bal_stoim.Value;
DataModule1.Table13.FieldByName(Inventar).AsString:=DataModule1.Table9Inventar.Value;
DataModule1.Table13.FieldByName(Uhastoc).AsString:=DataModule1.Table9Uhastoc.Value;
DataModule1.Table13.FieldByName(DataRash).AsDateTime:=Date;
DataModule1.Table13.Post;
DataModule1.Table9.Post;
End;
DataModule1.Table9.Next;
End;
8 Закрытие отчетного месяца
Перед закрытием отчетного месяца получают все отчетные документы.
Закрытие производится в следующем порядке.
- Перед закрытием текущего отчетного месяца производится расчет арендной стоимости основных фондов в ЗАО УПТК Бамтоннельстрой и всех лизинговых компаниях ОАО Бамтоннельстрой.
- Насчитывается стоимость арендной платы по всем подразделениям и субподрядным организациям.
- Переводится новое оборудование в список оборудования, для перерасчета арендной платы в следующем месяце.
- Создается список оборудования, которое было расходовано в текущем месяце, для создания справочников по основным фондам, расходованным за все время существования организации.
- Формируем отчеты по движению основных фондов в отчетном месяце.
9 Передача данных в 1С Предприятие
Для того чтобы получить полный баланс по предприятию, необходимо передать данные о состоянии по основным фондам в 1С Предприятие (1С Бухгалтерия), после чего произвести формирование баланса предприятия.
Для того чтобы перевести итоговые данные по движению основных фондов необходимо воспользоваться одним из способов.
- По сформированным спискам ввести проводки в 1С Бухгалтерию, только в этом случае возможны ошибки при вводе данных.
- В программе Автоматизированное рабочее место бухгалтера необходимо сформировать базу данных по движению основных фондов, в которую войдут данные по каждому счету, использующемуся в текущем месяце. Принять данные в 1С Предприятие, программа создаст все необходимые проводки. После этого можно формировать баланс по предприятию в целом.
Реализация модуля формирования проводок из файла базы данных, процедура разработана на встроенном языке 1С предприятие. Для реализации этой задачи была создана база данных справочник по описанию кодов счетов, для того чтобы при формировании проводок значения субконто были известны программе.
Часть процедуры, которая описывает создание новой проводки:
СпрОписаниеКод.НайтиПоКоду(Число(Код),0);
Операция.НоваяПроводка();
Операция.Дебет.Субконто(1,СпрОписаниеКод.Субконто1);
Операция.Дебет.Субконто(2,СпрОписаниеКод.Субконто2);
Операция.Дебет.Субконто(3,СпрОписаниеКод.Субконто3);
Операция.Кредит.Счет=СчетПоКоду(“01”)
Операция.СодержаниеПроводки=Строка(Описание);
Операция.НомерЖурнала=”ОС”
Для реализации этой возможности использовались базы данных формата DBF, который используется программой 1С Предприятие. Для того чтобы создать файл в формате DBF, пришлось добав