Конфигурирование программы "1С:Предприятие" на основе предприятия сельскохозяйственной отрасли
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?кла;
Прервать;
…
Если ТипУслуги = 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;
КонецЕсли;
Если ПустоеЗначение(Сче?/p>