Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

Модуль документа «ОказаниеУслуг»




// Сч76_5 = СчетПоКоду («76.5»);

Сч76_5 = СчетПоКоду («76.8.2»);

Если СС7681 = 1 Тогда

Сч76_5 = СчетПоКоду («76.8.1»);

ИначеЕсли СС762 = 1 тогда

Сч76_5 = СчетПоКоду («76.2»);

ИначеЕсли СС765 = 1 тогда

Сч76_5 = СчетПоКоду («76.5»);

КонецЕсли;

Если СС914 = 1 Тогда

Сч91_1 = СчетПоКоду («91.4»);

КонецЕсли;

Сч90_15 = СчетПоКоду («90.15»);

Сч90_10 = СчетПоКоду («90.10»);

Сч90_12 = СчетПоКоду («90.12»);

Сч90_9 = СчетПоКоду («90.9»);

Сч90_6 = СчетПоКоду («90.6»);

Сч62_9 = СчетПоКоду («62.9»);

Сч62_10 = СчетПоКоду («62.10»);

Сч62_12 = СчетПоКоду («62.12»);

Сч62_14 = СчетПоКоду («62.14»);

Сч62_5 = СчетПоКоду («62.5»);

Сч73_3 = СчетПоКоду («73.3»);

Сч84_4 = СчетПоКоду («84.4»);

Если СС6210 = 1 тогда

СчетРасчетовСПокупателем = Сч62_10

ИначеЕсли СС6212 = 1 тогда

СчетРасчетовСПокупателем = Сч62_12

ИначеЕсли СС6214 = 1 тогда

СчетРасчетовСПокупателем = Сч62_14

ИначеЕсли СС625 = 1 тогда

СчетРасчетовСПокупателем = Сч62_5

ИначеЕсли СС626 = 1 тогда

СчетРасчетовСПокупателем = Сч62_6

ИначеЕсли СС733 = 1 тогда

СчетРасчетовСПокупателем = Сч73_3

ИначеЕсли СС844 = 1 тогда

СчетРасчетовСПокупателем = Сч84_4

Иначе

СчетРасчетовСПокупателем = Сч62_1

КонецЕсли;

Если ((Договор. Наименование = «Основной договор») и (Флаг = 0)) или (Флаг = 1) тогда

Если (ТипЗаказчика = 1) или (ТипЗаказчика = 0) Тогда

Если СС6210 = 1 тогда

СчетРасчетовСПокупателем = Сч62_10

ИначеЕсли СС6212 = 1 тогда

СчетРасчетовСПокупателем = Сч62_12

ИначеЕсли СС6214 = 1 тогда

СчетРасчетовСПокупателем = Сч62_14

ИначеЕсли СС625 = 1 тогда

СчетРасчетовСПокупателем = Сч62_5

ИначеЕсли СС626 = 1 тогда

СчетРасчетовСПокупателем = Сч62_6

ИначеЕсли СС733 = 1 тогда

СчетРасчетовСПокупателем = Сч73_3

ИначеЕсли СС844 = 1 тогда

СчетРасчетовСПокупателем = Сч84_4

Иначе

СчетРасчетовСПокупателем = Сч62_9

КонецЕсли;

КонецЕсли;

КонецЦикла;

КонецЕсли;

КонецЕсли;

Иначе

Если (СС844 = 0) и (СС733 = 0) Тогда

Операция. Дебет. Контрагенты = КонтрагентСписком;

Операция. Дебет. Договоры = ДоговорСписком;

КонецЕсли;

Если СС844 = 1 тогда

Операция. Дебет. ДляСчета844 = Сч844

КонецЕсли;

Если СС733 = 1 Тогда

Операция. Дебет. Сотрудники = Сотр;

Если ПустоеЗначение(Сотр) = 1 Тогда // если не указвываем сотрудника программа ставит «СОТРУДНИК»

Сотрудн = СоздатьОбъект («Справочник. Сотрудники»);

Сотрудн. ВыбратьЭлементы();

Пока Сотрудн. ПолучитьЭлемент()=1 цикл

Если Сотрудн. НайтиПоКоду («0000000135») = 1 тогда

Операция. Дебет. Сотрудники = Сотрудн. ТекущийЭлемент();

Прервать;

КонецЕсли;

КонецЦикла;

КонецЕсли;

КонецЕсли;

КонецЕсли;

Если ТипУслуги = 3 Тогда

Операция. Кредит. Счет = Сч91_1;

Операция. Кредит. ПрочиеДоходыИРасходы = СтатьяПрочихДоходовИРасходов;

КонецЕсли;

Если СС909 = 1 тогда

Операция. Кредит. Счет = Сч90_9

КонецЕсли;

Если СС9010 = 1 тогда

Операция. Кредит. Счет = Сч90_10

КонецЕсли;

Если СС9012 = 1 тогда

Операция. Кредит. Счет = Сч90_12

КонецЕсли;

Если СС9015 = 1 тогда

Операция. Кредит. Счет = Сч90_15

КонецЕсли;

Если ПустоеЗначение(ВидНоменкл) = 1 тогда

Операция. Кредит. ВидыНоменклатуры = Услуга. ВидНоменклатуры

Иначе

Операция. Кредит. ВидыНоменклатуры = ВидНоменкл

КонецЕсли;

Если ВерсияОбъекта >= «7.70.421» Тогда

Операция. Кредит. СтавкиНДС = ТаблицаРеализации. СтавкаНДС;

Операция. Кредит. СтавкиНП = ТаблицаРеализации. СтавкаНП;

КонецЕсли;

КонецЕсли;

Если ОплатаДоговора = 2 Тогда

Операция. ВалСумма = ТаблицаРеализации. ВалВсего;

Операция. Валюта = Валюта;

КонецЕсли;

Если ВестиУчетРасчетовУЕ = 1 Тогда

Операция. ВалСумма = ТаблицаРеализации. Всего;

Операция. Валюта = Валюта;

Операция. Сумма = ТаблицаРеализации. ВыручкаРуб - ТаблицаРеализации. СуммоваяРазница;

Иначе

Операция. Сумма = Всего;

КонецЕсли;

ИначеЕсли ТаблицаРеализации. ВидНоменклатуры. ТипНоменклатуры = Перечисление. ТипыНоменклатуры. УслугаЕНВД Тогда

Операция. Кредит. Счет = Сч90_1_2;

Операция. Кредит. ВидыНоменклатуры = ТаблицаРеализации. ВидНоменклатуры;

Иначе

Если (ТипЗаказчика = 1) или (ТипЗаказчика = 0) Тогда

Операция. Кредит. Счет = Сч90_10

Иначе

Операция. Кредит. Счет = Сч90_12;

КонецЕсли;

Если СС906 = 1 тогда

Операция. Кредит. Счет = Сч90_6

КонецЕсли;

Если СС909 = 1 тогда

Операция. Кредит. Счет = Сч90_9

КонецЕсли;

Если СС9010 = 1 тогда

Операция. Кредит. Счет = Сч90_10

КонецЕсли;

Если СС9012 = 1 тогда

Операция. Кредит. Счет = Сч90_12

КонецЕсли;

Если СС9015 = 1 тогда

Операция. Кредит. Счет = Сч90_15

КонецЕсли;

Если ПустоеЗначение(ВидНоменкл) = 1 тогда

Операция. Кредит. ВидыНоменклатуры = Услуга. ВидНоменклатуры

Иначе

Операция. Кредит. ВидыНоменклатуры = ВидНоменкл

КонецЕсли;

Если ВерсияОбъекта >= «7.70.421» Тогда

Операция. Кредит. СтавкиНДС = ТаблицаРеализации. СтавкаНДС;

Операция. Кредит. СтавкиНП = ТаблицаРеализации. СтавкаНП;

КонецЕсли;

КонецЕсли;

Операция. Валюта = Валюта;

Операция. Сумма = ТаблицаРеализации. СуммоваяРазница;

КонецЕсли;

Если (ПустоеЗначение(СчетЗатрат) = 0) и (ПустоеЗначение(СебестВсего) = 0) Тогда

Операция. НоваяПроводка();

Операция. НомерЖурнала = «ТВ»;

Операция. СодержаниеПроводки = «Себестоимость»;

Операция. ПервичныйДокумент = глПредставлениеПервичногоДокумента (Контекст);

Операция. Сумма = СебестВсего;

Если (ТипЗаказчика = 1) или (ТипЗаказчика = 0) Тогда

Операция. Дебет. Счет = Сч90_10

Операция. Дебет. Счет = Сч90_9

КонецЕсли;

Если СС9010 = 1 тогда

Операция. Дебет. Счет = Сч90_10

КонецЕсли;

Если СС9012 = 1 тогда

Операция. Дебет. Счет = Сч90_12

КонецЕсли;

Если СС9015 = 1 тогда

Операция. Дебет. Счет = Сч90_15

КонецЕсли;

Если ПустоеЗначение(ВидНоменкл) = 1 тогда

Операция. Дебет. ВидыНоменклатуры = ТаблицаРеализации. ВидНоменклатуры;

Операция. Дебет. ВидыНоменклатуры = Услуга. ВидНоменклатуры;

Иначе

Операция. Дебет. ВидыНоменклатуры = ВидНоменкл

КонецЕсли;

Если ВерсияОбъекта >= «7.70.421» Тогда

Операция. Дебет. СтавкиНДС = ТаблицаРеализации. СтавкаНДС;

Операция. Дебет. СтавкиНП = ТаблицаРеализации. СтавкаНП;

КонецЕсли;

Операция. Кредит. Счет = СчетЗатрат;

Операция. Кредит. Субконто (1, Субконто1);

Операция. Кредит. Субконто (2, Субконто2);

Операция. Кредит. Субконто (3, Субконто3);

КонецЕсли;

КонецЦикла;

Прервать;

Если ТипУслуги = 1 Тогда

Форма. ИспользоватьСлой («ЗачетАванса», 1);

Форма. ИспользоватьСлой («ЗачетТребований», 0);

Форма. ИспользоватьСлой («ПрочиеДоходы», 0);

Форма. ИспользоватьСлой («Номенклатура», 1);

Форма. ИспользоватьСлой («СписокТиповЗ», 1);

ИначеЕсли ТипУслуги = 2 Тогда

Форма. ИспользоватьСлой («ЗачетАванса», 0);

Форма. ИспользоватьСлой («ЗачетТребований», 1);

Форма. ИспользоватьСлой («ПрочиеДоходы», 0);

Форма. ИспользоватьСлой («Номенклатура», 0);

Форма. ИспользоватьСлой («СписокТиповЗ», 0);

Иначе

Форма. ИспользоватьСлой («ЗачетАванса», 1);

Форма. ИспользоватьСлой («ЗачетТребований», 0);

Форма. ИспользоватьСлой («ПрочиеДоходы», 1);

Форма. ИспользоватьСлой («Номенклатура», 0);

Форма. ИспользоватьСлой («СписокТиповЗ», 1);

КонецЕсли;

Если ТипУслуги = 3 Тогда

Форма.СС914. Доступность(1)

Иначе

Форма.СС914. Доступность(0);

СС914 = 0;

КонецЕсли;

КонецПроцедуры // ПриВыбореТипаУслуги()

Процедура ПересчетСеб()

СебестВсего = Себестоимость*Количество

ПересчетСеб();

Процедура ПриВыбореДоговора()

Если Флаг = 0 Тогда

глПриВыбореДоговора (Контрагент, Договор);

Иначе

глПриВыбореДоговора (КонтрагентСписком, ДоговорСписком);

КонецЕсли;

УправлениеКурсом(1); // при изменении договора могла измениться валюта

ПроверитьДоговор();

КонецПроцедуры // ПриВыбореДоговора()

Процедура ПриВыбореКонтрагента()

Если Флаг = 0 Тогда

глПриВыбореКонтрагента (Контрагент, Договор);

Иначе

глПриВыбореКонтрагента (КонтрагентСписком, ДоговорСписком);

КонецЕсли;

УправлениеКурсом(1);

ПроверитьДоговор();

КонецПроцедуры // ПриВыбореКонтрагента()

Процедура ПриВыбореСчетаЗатрат()

Для А = 1 По 3 Цикл

НазначитьТип («Субконто»+А, СчетЗатрат. ВидСубконто(А));

КонецЦикла;

КонецПроцедуры // ПриВыбореСчета

Процедура ПроверкаФлага()

Если Флаг = 0 тогда

Форма. Контрагент. Видимость(1);

Форма. Договор. Видимость(1);

Форма. КонтрагентСписком. Видимость(0);

Форма. ДоговорСписком. Видимость(0);

Иначе

Форма. Контрагент. Видимость(0);

Форма. Договор. Видимость(0);

Форма. КонтрагентСписком. Видимость(1);

Форма. ДоговорСписком. Видимость(1);

КонецЕсли;        

КонецПроцедуры

Процедура ПроверкаКнопки() // определяет доступность кнопок по Дт и Кр

Форма.СС9010. Доступность(0);

Форма.СС906. Доступность(0);

Форма.СС9012. Доступность(0);

Форма.СС909. Доступность(0);

Форма.СС9015. Доступность(0);

Форма.СС625. Доступность(0);

Форма.СС626. Доступность(0);

Форма.СС6210. Доступность(0);

Форма.СС6212. Доступность(0);

Форма.СС6214. Доступность(0);

Форма.СС7681. Доступность(0);

Форма.СС762. Доступность(0);

Форма.СС765. Доступность(0);

Форма.СС765. Доступность(0);

Форма.СС844. Доступность(0);

Форма.СС733. Доступность(0);

Форма. Сч844. Доступность(0);

Форма. Сч844. Видимость(0);

Форма. Сотр. Доступность(0);

Форма. Сотр. Видимость(0);

Если СС906 = 1 Тогда

Форма.СС906. Доступность(1);

ИначеЕсли СС909 = 1 Тогда

Форма.СС909. Доступность(1);

ИначеЕсли СС9010 = 1 Тогда

Форма.СС9010. Доступность(1);

ИначеЕсли СС9012 = 1 Тогда

Форма.СС9012. Доступность(1);

ИначеЕсли СС9015 = 1 Тогда

Форма.СС9015. Доступность(1);

Иначе

Форма.СС906. Доступность(1);

СС906 = 0;

Форма.СС909. Доступность(1);

СС909 = 0;

Форма.СС9010. Доступность(1);

СС9010 = 0;

Форма.СС9012. Доступность(1);

СС9012 = 0;

Форма.СС9015. Доступность(1);

СС9015 = 0;

КонецЕсли;

Если ТипЗаказчика = 2 Тогда

Если СС7681 = 1 Тогда

Форма.СС7681. Доступность(1);

ИначеЕсли СС762 = 1 Тогда

Форма.СС762. Доступность(1);

ИначеЕсли СС765 = 1 Тогда

Форма.СС765. Доступность(1);

Иначе

Форма.СС7681. Доступность(1);

СС7681 = 0;

Форма.СС762. Доступность(1);

СС762 = 0;

Форма.СС765. Доступность(1);

СС765 = 0;

КонецЕсли;

Иначе

Если СС625 = 1 Тогда

Форма.СС625. Доступность(1);

ИначеЕсли СС6210 = 1 Тогда

Форма.СС6210. Доступность(1);

ИначеЕсли СС6212 = 1 Тогда

Форма.СС6212. Доступность(1);

ИначеЕсли СС6214 = 1 Тогда

Форма.СС6214. Доступность(1);

ИначеЕсли СС626 = 1 Тогда

Форма.СС626. Доступность(1);

ИначеЕсли СС733 = 1 Тогда

Форма.СС733. Доступность(1);

Форма. Сотр. Видимость(1);

Форма. Сотр. Доступность(1);

ИначеЕсли СС844 = 1 Тогда

Форма.СС844. Доступность(1);

Форма. Сч844. Видимость(1);

Форма. Сч844. Доступность(1);

Иначе

Форма.СС625. Доступность(1);

Форма.СС6210. Доступность(1);

Форма.СС6212. Доступность(1);

Форма.СС6214. Доступность(1);

Форма.СС626. Доступность(1);

Форма.СС733. Доступность(1);

Форма.СС844. Доступность(1);

СС733 = 0;

СС844 = 0;

СС626 = 0;

СС625 = 0;

СС6210 = 0;

СС6212 = 0;

СС6214 = 0;

КонецЕсли;

КонецЕсли;

КонецПроцедуры;

Операция. НоваяПроводка();

Операция. НомерЖурнала = «МТ»;

Операция. СодержаниеПроводки = «Поступили материалы»;

Операция. ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);

Операция. Дебет. Счет = Сч;

Операция. Дебет. Материалы = Материал;

Операция. Дебет. МестаХранения = МестоХранения;

Операция. Кредит. Счет = СчетРасчетовСПоставщиком;

Операция. Кредит. Контрагенты = Контрагент;

Операция. Кредит. Договоры = Договор;

Операция. Количество = Количество;

Если Флаг = 1 тогда

Операция. Кредит. Счет = Сч71_1;

КонецЕсли;

Если ПустоеЗначение(СчетЗатрат) = 0 тогда

Операция. Кредит. Счет = СчетЗатрат;

Операция. Кредит. Субконто (1, Субконто1);

Операция. Кредит. Субконто (2, Субконто2);

Операция. Кредит. Субконто (3, Субконто3);

КонецЕсли;

Операция. НоваяПроводка();

Операция. Дебет. Счет = Сч19_1;

Операция. Дебет. Контрагенты = Контрагент;

Если ПустоеЗначение(ДатаНомерСчетаФактуры) = 0 Тогда

Операция. Дебет. СчетаФактурыПолученные = ТекущийДокумент();

КонецЕсли;

Операция. Кредит. Счет = СчетРасчетовСПоставщиком;

Операция. Кредит. Контрагенты = Контрагент;

Операция. Кредит. Договоры = Договор;

Если Флаг = 1 тогда

Операция. Кредит. Счет = Сч71_1;

КонецЕсли;

Если ПустоеЗначение(СчетЗатрат) = 0 тогда

Операция. Кредит. Счет = СчетЗатрат;

Операция. Кредит. Субконто (1, Субконто1);

Операция. Кредит. Субконто (2, Субконто2);

Операция. Кредит. Субконто (3, Субконто3);

КонецЕсли;

Поделиться:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...