Разработка программного модуля для интеграции данных между системами 1С Предприятие 8.2 и модулем "Казначейство" КИС ОАО "ММК"

Технико-экономические характеристики предметной области по учету готовой продукции на ОАО "ММК". Постановка задачи для модуля 1С. Бухгалтерия 3.0. Информационное обеспечение модуля "Связь 1С Предприятия 8.2. с "Казначейством". Оценка трудоемкости работы.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 06.06.2013
Размер файла 1,1 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

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

ЧтениеXML.УстановитьСтроку(Ответ);

ОбъектХДТО = Фабрика.ПрочитатьXML(ЧтениеXML, ТипСтраны);

СписокХДТО = ОбъектХДТО.ПолучитьСписок("contragent_status");

Список = Новый СписокЗначений;

Для Каждого ОбъектСписка Из СписокХДТО Цикл

Список.Добавить(ОбъектСписка.lookup_code, ОбъектСписка.meaning);

КонецЦикла;

Возврат Список;

КонецФункции

Функция вс_ПолучитьТипыКонтрагентов(Логин,Пароль)Экспорт

Ответ = Сервис.getContragentTypes(Логин,Пароль);

Пути = Новый Массив();

Пути.Добавить(url+"/schema/treasury.xsd");

Фабрика = СоздатьФабрикуXDTO(Пути);

ТипСтраны = Фабрика.Тип("http://treasury.is.mmk.ru","contragent_types");

ЧтениеXML = Новый ЧтениеXML;

ЧтениеXML.УстановитьСтроку(Ответ);

ОбъектХДТО = Фабрика.ПрочитатьXML(ЧтениеXML, ТипСтраны);

СписокХДТО = ОбъектХДТО.ПолучитьСписок("contragent_type");

Список = Новый СписокЗначений;

Для Каждого ОбъектСписка Из СписокХДТО Цикл

Список.Добавить(ОбъектСписка.type);

КонецЦикла;

Возврат Список;

КонецФункции

Функция вс_ПолучитьДоговор(contragent_id, Договор) Экспорт

Ответ = Сервис.getContract(Логин,Пароль,XMLСтрока(contragent_id), Строка(Договор.Ссылка.УникальныйИдентификатор()),СокрЛП(ИдентификаторБД));

Пути = Новый Массив();

Пути.Добавить(url+"/schema/treasury.xsd");

Фабрика = СоздатьФабрикуXDTO(Пути);

ТипСписокДоговор = Фабрика.Тип("http://treasury.is.mmk.ru","contracts");

ЧтениеXML = Новый ЧтениеXML;

ЧтениеXML.УстановитьСтроку(Ответ);

ОбъектХДТО = Фабрика.ПрочитатьXML(ЧтениеXML, ТипСписокДоговор);

Возврат ВСтруктуру(ОбъектХДТО.ПолучитьСписок("contract"));

КонецФункции

Функция вс_ПолучитьБанк(Логин,Пароль,БИК) Экспорт

Ответ = Сервис.getBank(Логин,Пароль,БИК);

Пути = Новый Массив();

Пути.Добавить(url+"/schema/treasury.xsd");

Фабрика = СоздатьФабрикуXDTO(Пути);

ТипОбъекта = Фабрика.Тип("http://treasury.is.mmk.ru","banks");

ЧтениеXML = Новый ЧтениеXML;

ЧтениеXML.УстановитьСтроку(Ответ);

ОбъектХДТО = Фабрика.ПрочитатьXML(ЧтениеXML, ТипОбъекта);

СписокХДТО = ОбъектХДТО.ПолучитьСписок("bank");

Возврат СписокХДТО;

Функция вс_ПолучитьОперацию(Логин, Пароль, object_type, do_system_id, do_object_id) Экспорт

Ответ = Сервис.getOperation(Логин,Пароль,object_type, do_system_id, do_object_id);

Пути = Новый Массив();

Пути.Добавить(url+"/schema/treasury.xsd");

Фабрика = СоздатьФабрикуXDTO(Пути);

ТипСписок = Фабрика.Тип("http://treasury.is.mmk.ru","payment_operations");

ЧтениеXML = Новый ЧтениеXML;

ЧтениеXML.УстановитьСтроку(Ответ);

ОбъектХДТО = Фабрика.ПрочитатьXML(ЧтениеXML, ТипСписок);

Возврат ВСтруктуру(ОбъектХДТО.ПолучитьСписок("payment_operation"));

КонецФункции

Функция вс_ПолучитьПредоплаты(Логин, Пароль, operation_id, do_system_id) Экспорт

Ответ = Сервис.getPrepays(Логин,Пароль,operation_id, do_system_id);

Пути = Новый Массив();

Пути.Добавить(url+"/schema/treasury.xsd");

Фабрика = СоздатьФабрикуXDTO(Пути);

ТипСписокКонтрагент = Фабрика.Тип("http://treasury.is.mmk.ru","invoices");

ЧтениеXML = Новый ЧтениеXML;

ЧтениеXML.УстановитьСтроку(Ответ);

ОбъектХДТО = Фабрика.ПрочитатьXML(ЧтениеXML, ТипСписокКонтрагент);

Возврат ВСтруктуру(ОбъектХДТО.ПолучитьСписок("invoice"));

КонецФункции

Функция вс_ВозвратАвансаВыданного(Логин, Пароль, Хмл) Экспорт

Ответ = Сервис.returnOutComingAdvance(Логин,Пароль,Хмл);

Возврат(Ответ);

КонецФункции

Функция вс_ПолучитьАвизоИнвойса(Логин, Пароль, Хмл) Экспорт

Ответ = Сервис.getInvoiceAviso(Логин,Пароль,Хмл);

Пути = Новый Массив();

Пути.Добавить(url+"/schema/treasury.xsd");

Фабрика = СоздатьФабрикуXDTO(Пути);

ТипСписокКонтрагент = Фабрика.Тип("http://treasury.is.mmk.ru","invoices");

ЧтениеXML = Новый ЧтениеXML;

ЧтениеXML.УстановитьСтроку(Ответ);

ОбъектХДТО = Фабрика.ПрочитатьXML(ЧтениеXML, ТипСписокКонтрагент);

Возврат ВСтруктуру(ОбъектХДТО.ПолучитьСписок("invoice"));

КонецФункции

Функция вс_ПолучитьАвизоОперации(Логин, Пароль, Хмл) Экспорт

Ответ = Сервис.getOperationAviso(Логин,Пароль,Хмл);

Пути = Новый Массив();

Пути.Добавить(url+"/schema/treasury.xsd");

Фабрика = СоздатьФабрикуXDTO(Пути);

ТипСписокКонтрагент = Фабрика.Тип("http://treasury.is.mmk.ru","invoices");

ЧтениеXML = Новый ЧтениеXML;

ЧтениеXML.УстановитьСтроку(Ответ);

ОбъектХДТО = Фабрика.ПрочитатьXML(ЧтениеXML, ТипСписокКонтрагент);

Возврат ВСтруктуру(ОбъектХДТО.ПолучитьСписок("invoice"));

КонецФункции

Функция вс_УдалитьВозвратАвансаВыданного(Логин, Пароль, Хмл) Экспорт

Ответ = Сервис.removeReturnOutComingAdvance(Логин, Пароль, Хмл);

КонецФункции

Функция вс_ОпределитьСтатусВозвратаАвансаВыданного(Логин, Пароль, invoice_id, operation_id) Экспорт

Ответ = Сервис.returnOutComingAdvanceStatus(Логин, Пароль, invoice_id, operation_id);

Возврат(Ответ);

КонецФункции

Функция вс_ПолучитьБанкоскиеСчета(Логин, Пароль, Бик, НомерСчета) Экспорт

Ответ = Сервис.getBankAccounts(Логин,Пароль,Бик, НомерСчета);

Пути = Новый Массив();

Пути.Добавить(url+"/schema/treasury.xsd");

Фабрика = СоздатьФабрикуXDTO(Пути);

ТипСписок = Фабрика.Тип("http://treasury.is.mmk.ru","bank_accounts");

ЧтениеXML = Новый ЧтениеXML;

ЧтениеXML.УстановитьСтроку(Ответ);

ОбъектХДТО = Фабрика.ПрочитатьXML(ЧтениеXML, ТипСписок);

Возврат ВСтруктуру(ОбъектХДТО.ПолучитьСписок("bank_account"));

КонецФункции

Функция вс_СохранитьПлатеж(Логин,Пароль,Хмл) Экспорт

Ответ = Сервис.saveOperation(Логин,Пароль,Хмл);

Возврат(Ответ);

КонецФункции

Приложение 2

Таблица В.1 - Журнал хозяйственных операций

Дата

Содержание операции

Дебет

Кредит

Сумма

1

01.02.2013

Аванс: выдача

76/ПРОЧ

51/ЗАК/РАС

12000

51/ИСП/ДОХ

76/ПРОЧ

12000

2

02.02.2013

Приобретены организационные расходы организации

04/ОРГ

51/ИСП/РАС

7500

08/НЕМА

60/КАП

6661

04/ОРГ

08/НЕМА

6661

19/04

60/КАП

839

68/НДС/18%

19/04

839

3

03.02.2013

Постоянные расходы с НДС

60/А

51/ИСП/РАС

16005

20/ПРОЧ

60/А

16005

19/76

60/А

2441

68/НДС/20

19/76

2441

4

03.02.2013

Постоянные расходы без НДС

60/А

51/ИСП/РАС

38850

20/ПРОЧ

60/А

38850

5

04.02.2013

Приобретено: машины, оборудование, приборы, инструмент, инвентарь/Расчеты по авансам выданным

60/А

51/ИСП/РАС

69190

08/ОСН

60/А

59615

01/1/2

08/ОСН

59615

19/08

60/А

9545

68/НДС/20

19/08

9545

6

04.02.2013

Приобретено: переменные расходы

60/СР

51/ИСП/РАС

2620

60/А

60/СР

2220

19/08

60/СР

400

68/НДС/18%

19/08

400

7

05.02.2013

Лизинговая плата

60/ЭВМ/ЛИЗ

51/ИСП/РАС

2046

8

05.02.2013

Касса: получение из банка

50/1

51/ИСП/РАС

27270

9

06.02.2013

Начисление зарплаты: расчеты с персоналом по оплате труда

20/ЗП

70/70

27270

20/ЗП

69/69

8181

70/70

68/ПОДН

5454

70/70

50/1

21816

10

06.02.2013

Заработная плата: уплата налогов на ФОТ

69/69

51/ИСП/РАС

8150

68/ПОДН

69/69

8150

11

07.02.2013

Аренда помещения

76/КОМ

51/ИСП/РАС

12000

19/76

76/КОМ

1830

68/НДС/18%

19/76

1830

20/ПРОЧ

76/КОМ

10170

12

03.03.2013

Лизинговая плата

60/ЭВМ/ЛИЗ

51/ИСП/РАС

2046

13

04.03.2013

Постоянные расходы с НДС

60/А

51/ИСП/РАС

16005

20/ПРОЧ

60/А

16005

19/76

60/А

2441

68/НДС/20

19/76

2441

14

04.03.2013

Постоянные расходы без НДС

60/А

51/ИСП/РАС

40200

20/ПРОЧ

60/А

40200

15

05.03.2013

Касса: получение из банка

50/1

51/ИСП/РАС

27270

16

06.03.2013

Начисление зарплаты: расчеты с персоналом по оплате труда

20/ЗП

70/70

27270

20/ЗП

69/69

8181

70/70

68/ПОДН

5454

70/70

50/1

21816

17

06.03.2013

Заработная плата: уплата налогов на ФОТ

69/69

51/ИСП/РАС

8150

68/ПОДН

69/69

8150

18

07.03.2013

Аренда помещения

76/КОМ

51/ИСП/РАС

12000

19/76

76/КОМ

1830

68/НДС/18%

19/76

1830

20/ПРОЧ

76/КОМ

10170

19

28.03.2013

Расходы исполнителя: списание расходов

51/ЗАК/РАС

62/А/ИСП

4092

62/А/ИСП

51/ИСП/РАС

4092

20

28.03.2013

Расходы заказчика: списание расходов

51/ЗАК/РАС

20/ЗАК/РАС

196896

21

29.03.2013

Прибыль исполнителя: начисление прибыли исполнителя

91/1/ПРОЦ

99/НЕРЕ/ИСП

62150

22

29.03.2013

Прибыль заказчика: начисление прибыли заказчика

91/1/ПРОЧ

99/НЕРЕ/ЗАК

58679

23

29.03.2013

Налоги исполнителя: уплата налога на прибыль исполнителя

68/НПР/НПР/ИСП

51/ИСП/РАС

20002

24

29.03.2013

Налоги заказчика: уплата налога на прибыль заказчиком

68/НПР/НПР/ЗАК

51/ЗАК/РАС

11736

25

03.04.2013

Продажа: оплата работы

60/КРЕД

51/ЗАК/РАС

155169

51/ИСП/ДЕН

60/КРЕД

155169

19/76

60/КРЕД

23670

68/НДС/18%

19/76

23670

Размещено на Allbest.ru


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.