Модуль документа «ОказаниеУслуг»
… // Сч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 Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...
|