Автоматизированная система 1С является основной рабочей базой предприятия. В данной работе рассмотрен способ ее конфигурации. Функцией данной системы является отслеживание оказанных услуг и необходимых комплектующих, что позволяет оперативно выполнить работу. И как результат - способность конкурировать с другими предприятиями на рынке оказания услуг.

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. 1С Предприятие Версия 8.0 Конфигурирование и администрирование. Части 1 и 2 Фирма «1С» Москва 1999г.

2. 1С Предприятие Версия 8.0 Описание встроенного языка. Части 1 и 2 Фирма «1С» Москва 1999г.

3. Нормативные документы предприятия

4. www.v8.1c.r

ПРИЛОЖЕНИЕ А

Пример написания кода программы в системе 1С.

Функция ПечатьТОРГ12(БезУслуг = Ложь)

ЕдиницаИзмеренияВеса = Константы.ЕдиницаИзмеренияВеса.Получить();

ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();

Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда

ТоварКод = "Артикул";

Иначе

ТоварКод = "Код";

КонецЕсли;

Запрос = Новый Запрос;

Запрос.УстановитьПараметр("ДатаСреза", Дата);

Запрос.УстановитьПараметр("СтруктурнаяЕдиница", Склад);

Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);

Запрос.УстановитьПараметр("ПустойКонтрагент", Справочники.Контрагенты.ПустаяСсылка());

Запрос.УстановитьПараметр("Основание", ?(ЗначениеНеЗаполнено(ДоговорКонтрагента.Номер)=Истина, ДоговорКонтрагента.Наименование, ДоговорКонтрагента.Наименование + " №" + ДоговорКонтрагента.Номер + " от " + Формат(ДоговорКонтрагента.Дата, "ДЛФ = ДД")));

Запрос.Текст =

"ВЫБРАТЬ

| Номер,

| Дата КАК ДатаДокумента,

| Организация,

| Организация КАК ЮрФизЛицо,

| Организация КАК Поставщик,

| Организация КАК Контрагент,

| Организация КАК Руководители,

| АдресДоставки КАК АдресДоставки,

| ВЫБОР КОГДА Грузополучатель = &ПустойКонтрагент

| ТОГДА Контрагент

| ИНАЧЕ Грузополучатель КОНЕЦ КАК Грузополучатель,

| ВЫБОР КОГДА Грузоотправитель = &ПустойКонтрагент

| ТОГДА Организация

| ИНАЧЕ Грузоотправитель КОНЕЦ КАК Грузоотправитель,

| БанковскийСчетОрганизации КАК БанковскийСчет,

| Контрагент КАК Покупатель,

| Контрагент КАК Плательщик,

| Сделка,

//| ДоговорКонтрагента.Представление + ' № ' + ДоговорКонтрагента.Номер + ' от ' + ДоговорКонтрагента.Дата КАК Основание,

| &Основание КАК Основание,

| ДоговорКонтрагента.ВедениеВзаиморасчетов КАК ВедениеВзаиморасчетов,

| ОтветственныеЛица.ФизическоеЛицо КАК ОтветственноеЛицо,

| Подразделение,

| ВалютаДокумента,

| КурсВзаиморасчетов КАК Курс,

| КратностьВзаиморасчетов КАК Кратность,

| УчитыватьНДС,

| СуммаВключаетНДС

|ИЗ

| Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг,

|

|ЛЕВОЕ СОЕДИНЕНИЕ

|РегистрСведений.ОтветственныеЛица.СрезПоследних(&ДатаСреза, СтруктурнаяЕдиница = &СтруктурнаяЕдиница) КАК ОтветственныеЛица

|ПО

| ОтветственныеЛица.СтруктурнаяЕдиница = РеализацияТоваровУслуг.Склад

|

|ГДЕ

| РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент

|";

Шапка = Запрос.Выполнить().Выбрать();

Шапка.Следующий();

Запрос = Новый Запрос;

Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);

Если ВалютаДокумента = ДоговорКонтрагента.ВалютаВзаиморасчетов Тогда

// Документ оформлен в валюте взаиморасчетов

Запрос.УстановитьПараметр("Курс", ЭтотОбъект.КурсВзаиморасчетов);

Запрос.УстановитьПараметр("Кратность", ЭтотОбъект.КратностьВзаиморасчетов);

Иначе

// Документ оформлен в валюте регламентированного учета

Запрос.УстановитьПараметр("Курс", 1);

Запрос.УстановитьПараметр("Кратность", 1);

КонецЕсли;

Запрос.Текст =

"ВЫБРАТЬ

| ВложенныйЗапрос.Номенклатура КАК Номенклатура,

| ВЫРАЗИТЬ(ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК ТоварНаименование,

| ВложенныйЗапрос.Номенклатура." + ТоварКод + " КАК ТоварКод,

| ВложенныйЗапрос.ЕдиницаИзмерения.Представление КАК БазоваяЕдиницаНаименование,

| ВложенныйЗапрос.ЕдиницаИзмерения.ЕдиницаПоКлассификатору.Код КАК БазоваяЕдиницаКодПоОКЕИ,

| ВложенныйЗапрос.ЕдиницаИзмерения КАК ЕдиницаИзмерения,

| ВложенныйЗапрос.ЕдиницаИзмеренияМест.Представление КАК ВидУпаковки,

| ВложенныйЗапрос.КоэффициентМест / ВложенныйЗапрос.Коэффициент КАК КоличествоВОдномМесте,

| ВЫБОР

| КОГДА ВложенныйЗапрос.КоличествоМест > 0 ТОГДА ВложенныйЗапрос.КоличествоМест * ВложенныйЗапрос.ЕдиницаИзмеренияМест.Вес

| ИНАЧЕ ВложенныйЗапрос.Количество * ВложенныйЗапрос.ЕдиницаИзмерения.Вес

| КОНЕЦ КАК МассаБрутто,

| ВложенныйЗапрос.Характеристика КАК Характеристика,

| ВложенныйЗапрос.Серия КАК Серия,

| ВложенныйЗапрос.СтавкаНДС КАК СтавкаНДС,

| ВложенныйЗапрос.Цена КАК Цена,

| ВложенныйЗапрос.Количество КАК Количество,

| ВложенныйЗапрос.КоличествоМест КАК КоличествоМест,

| ВложенныйЗапрос.Сумма КАК Сумма,

| ВложенныйЗапрос.СуммаНДС КАК СуммаНДС,

| ВложенныйЗапрос.НомерСтроки КАК НомерСтроки,

| ВложенныйЗапрос.Метка КАК Метка

|ИЗ

|

| (

| ВЫБРАТЬ

| РеализацияТоваровУслуг.Номенклатура,

| РеализацияТоваровУслуг.Коэффициент,

| РеализацияТоваровУслуг.ЕдиницаИзмерения,

| РеализацияТоваровУслуг.ЕдиницаИзмеренияМест,

| РеализацияТоваровУслуг.ЕдиницаИзмеренияМест.Коэффициент КАК КоэффициентМест,

| РеализацияТоваровУслуг.ХарактеристикаНоменклатуры КАК Характеристика,

| РеализацияТоваровУслуг.СерияНоменклатуры КАК Серия,

| РеализацияТоваровУслуг.СтавкаНДС,

| РеализацияТоваровУслуг.Цена * &Курс / &Кратность КАК Цена,

| СУММА(РеализацияТоваровУслуг.Количество) КАК Количество,

| СУММА(РеализацияТоваровУслуг.КоличествоМест) КАК КоличествоМест,

| СУММА(РеализацияТоваровУслуг.Сумма * &Курс / &Кратность) КАК Сумма,

| СУММА(РеализацияТоваровУслуг.СуммаНДС * &Курс / &Кратность) КАК

Если ИтогоМест > 0 Тогда

ОбластьМакета.Параметры.ВсегоМестПрописью = ЧислоПрописью(ИтогоМест, ,",,,,,,,,0");

КонецЕсли;

Если (НомерСтраницы > 10) И (НомерСтраницы < 20) Тогда

Слово = " листах";

Иначе

ПоследняяЦифра = НомерСтраницы % 10;

Если ПоследняяЦифра = 1 Тогда

Слово = " листе";

Иначе

Слово = " листах";

КонецЕсли;

КонецЕсли;

ОбластьМакета.Параметры.КоличествоЛистовВПриложении = Строка(НомерСтраницы) + Слово;

ОбластьМакета.Параметры.КоличествоПорядковыхНомеровЗаписейПрописью = ЧислоПрописью(КоличествоСтрок, ,",,,,,,,,0");

ОбластьМакета.Параметры.СуммаПрописью = СформироватьСуммуПрописью(ИтогоСуммаСНДС, мВалютаРегламентированногоУчета);

ТабДокумент.Вывести(ОбластьМакета);

// Зададим параметры макета

ТабДокумент.ПолеСверху = 0;

ТабДокумент.ПолеСлева = 0;

ТабДокумент.ПолеСнизу = 0;

ТабДокумент.ПолеСправа = 0;

ТабДокумент.РазмерКолонтитулаСверху = 0;

ТабДокумент.РазмерКолонтитулаСнизу = 0;

ТабДокумент.АвтоМасштаб = Истина;

ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

Возврат ТабДокумент;

КонецФункции // ПечатьТОРГ12()

*********************************************************

Процедура ОбработкаЗаполнения(Основание)

Если ТипЗнч(Основание) = Тип("ДокументСсылка.ЗаказПокупателя")

ИЛИ ТипЗнч(Основание) = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда

// Заполним реквизиты шапки по документу основанию.

АдресДоставки = Основание.АдресДоставки;

Подразделение = Основание.Подразделение;

Ответственный = Основание.Ответственный;

// Заполним реквизиты из стандартного набора по документу основанию.

ЗаполнитьШапкуДокументаПоОснованию(ЭтотОбъект, Основание);

ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;

ВидПередачи = Перечисления.ВидыПередачиТоваров.СоСклада;

// Сделку и табличные части заполняем только если взаиморасчеты ведутся не по расчетным документам.

Если ДоговорКонтрагента.ВедениеВзаиморасчетов <>

Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоРасчетнымДокументам Тогда

Если ТипЗнч(Основание) = Тип("ДокументСсылка.ЗаказПокупателя")

ИЛИ (ТипЗнч(Основание) = Тип("ДокументСсылка.СчетНаОплатуПокупателю")

И ДоговорКонтрагента.ВедениеВзаиморасчетов =

Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоСчетам) Тогда

Сделка = Основание;

Иначе

Сделка = Основание.ЗаказПокупателя;

КонецЕсли;

Если Основание.Проведен Тогда

ВариантВыводаФормыЗаполнения = ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"),"ВариантВыводаФормыЗаполнения");

Если ВариантВыводаФормыЗаполнения = Перечисления.ВариантыВыводаФормыЗаполнения.ВызыватьВсегда Тогда

// тут заполнять не надо - откроется форма выбора

мОткрыватьФормаЗаполненияПоЗаказу = Истина;

Иначе

// Заполним табличные части неполученными ТМЦ (резервом) по заказу покупателя.

ЗаполнитьТабличнуюЧастьПоЗаказуПокупателяУпр(Товары, Основание, ВариантВыводаФормыЗаполнения);

Если Не мОткрыватьФормаЗаполненияПоЗаказу Тогда

ЗаполнитьТабличнуюЧастьПоЗаказуПокупателяУпр(ВозвратнаяТара, Основание, ВариантВыводаФормыЗаполнения);

Если Не мОткрыватьФормаЗаполненияПоЗаказу Тогда

ЗаполнитьУслугиПоОстаткамУпр();

КонецЕсли;

КонецЕсли;

// Может, в процессе заполнения обнаружены нехватки и надо вызвать форму заполнения

// Тогда почистим табличные части

Если мОткрыватьФормаЗаполненияПоЗаказу = Истина Тогда

Товары.Очистить();

ВозвратнаяТара.Очистить();

Услуги.Очистить();

КонецЕсли;

КонецЕсли;

КонецЕсли;

КонецЕсли;

Если ТипЗнч(Основание) = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда

СкопироватьТовары(Основание);

СкопироватьВозвратнуюТару(Основание);

СкопироватьУслуги(Основание);

КонецЕсли;

ИначеЕсли ТипЗнч(Основание) = Тип("ДокументСсылка.ПоступлениеТоваровУслуг") Тогда

// Заполним реквизиты шапки по документу основанию.

Организация = Основание.Организация;

Подразделение = Основание.Подразделение;

ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;

ВидПередачи = Перечисления.ВидыПередачиТоваров.СоСклада;

Если Основание.ВидПоступления = Перечисления.ВидыПоступленияТоваров.НаСклад Тогда

Склад = Основание.СкладОрдер;

Иначе

Склад = Основание.СкладОрдер.Склад;

КонецЕсли;

Контрагент = ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнойПокупатель");

ДоговорКонтрагента = Контрагент.ОсновнойДоговорКонтрагента;

Если ЗначениеНеЗаполнено(ДоговорКонтрагента) Тогда

ВалютаДокумента = мВалютаРегламентированногоУчета;

Иначе

ВалютаДокумента = ДоговорКонтрагента.ВалютаВзаиморасчетов;

КонецЕсли;

СтруктураКурсаВзаиморасчетов = ПолучитьКурсВалюты(ВалютаДокумента, ПолучитьРабочуюДату());

КурсВзаиморасчетов = СтруктураКурсаВзаиморасчетов.Курс;

КратностьВзаиморасчетов = СтруктураКурсаВзаиморасчетов.Кратность;

// ТипЦен.

ТипЦен = ДоговорКонтрагента.ТипЦен;

Если ЗначениеНеЗаполнено(ТипЦен) Тогда

ТипЦен = ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнойТипЦенПродажи");

КонецЕсли;

// Флаги включения налогов.

УчитыватьНДС = Истина;

Если Не ЗначениеНеЗаполнено(ТипЦен) Тогда

// Если цены выбранного типа расчетные, то флаги включения налогов надо брать из базовой цены.

ВремТипЦен = ?(ТипЦен.Рассчитывается, ТипЦен.БазовыйТипЦен, ТипЦен);

СуммаВключаетНДС = ВремТипЦен.ЦенаВключаетНДС;

Иначе

// Заполним значениями по умолчанию (не заполнен ТипЦен).

СуммаВключаетНДС= Истина;

КонецЕсли;

Если Основание.Проведен Тогда

// Заполним табличные части по документу основанию (Поступление товаров);

// количество - минимум из того, что есть в документе основании и свободного остатка на складе.

ЗаполнитьТоварыПоПоступлениюТоваровУпр(Основание);

ЗаполнитьВозвратнуюТаруПоПоступлениюТоваровУпр(Основание);

КонецЕсли;

КонецЕсли;

Если ЕстьРеквизитДокумента("ОтражатьВУправленческомУчете", Основание.Метаданные()) Тогда

ОтражатьВУправленческомУчете = Основание.ОтражатьВУправленческомУчете;

Иначе

ОтражатьВУправленческомУчете = НЕ ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "НеОтражатьДокументыВУправленческомУчете");

КонецЕсли;

Если ЕстьРеквизитДокумента("ОтражатьВБухгалтерскомУчете", Основание.Метаданные()) Тогда

ОтражатьВБухгалтерскомУчете = Основание.ОтражатьВБухгалтерскомУчете;

ОтражатьВНалоговомУчете = Основание.ОтражатьВНалоговомУчете;

Иначе

ОтражатьВБухгалтерскомУчете = НЕ ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "НеОтражатьДокументыВБухгалтерскомУчете");

Если ОтражатьВБухгалтерскомУчете Тогда

ОтражатьВНалоговомУчете = НЕ ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "НеОтражатьДокументыВНалоговомУчете");

Иначе

ОтражатьВНалоговомУчете = ОтражатьВБухгалтерскомУчете;

КонецЕсли;

КонецЕсли;

КонецПроцедуры // ОбработкаЗаполнения()

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