Конфигурирование программы "1С:Предприятие" на основе предприятия сельскохозяйственной отрасли
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
трат1. ВидСубконто(А));
КонецЦикла;
КонецПроцедуры // ПриВыбореСчета
…
Процедура ПриВыбореЗакладки (НомерЗакладки, ЗначениеЗакладки)
Если НомерЗакладки = 1 Тогда
Форма. ИспользоватьСлой (Основной, 2);
Иначе
Форма. ИспользоватьСлой (СчетЗатрат, 2);
КонецЕсли;
Если Форма. ИспользоватьЗакладки() = 1 Тогда
Если Форма. Закладки. ТекущаяСтрока() = 1 Тогда
УправлениеКурсом();
УправлениеВидимостьюГрузополучателя();
УправлениеВидимостьюГрузоотправителя();
КонецЕсли;
КонецЕсли;
КонецПроцедуры
…
Модуль документа СписаниеОС
…
Если (БалансоваяСтоимость = 0) и (Сумма = 0) Тогда
Предупреждение (Введите балансовую стоимость)
КонецЕсли;
Операция. НоваяПроводка();
Операция. НомерЖурнала = ОС;
Операция. СодержаниеПроводки = Списана баланс. ст-ть;
Операция. ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Операция. Сумма =? (БалансоваяСтоимость = 0, Сумма, БалансоваяСтоимость);
Операция. Количество = Количество;
Если ПустоеЗначение(Сч) = 1 Тогда
Операция. Кредит. Счет = Сч01_1;
Операция. Кредит. ОсновныеСредства = ОсновноеСредство;
Иначе
Операция. Кредит. Счет = Сч;
Операция. Кредит. ОсновныеСредства = ОсновноеСредство;
Если (Сч. Код = 01.4) или (Сч. Код = 01.6) или (Сч. Код = 01.8) или (Сч. Код = 01.9) тогда
Операция. Кредит. МестаХранения = ПодОтч;
КонецЕсли;
КонецЕсли;
Операция. Дебет. Счет = Сч01_5;
Операция. Дебет. ОсновныеСредства = ОсновноеСредство;
ОстаточнаяСтоимость =? (СчетНачисленияАмортизации. Забалансовый = 1, БалансоваяСтоимость, БалансоваяСтоимость - НачисленнаяАмортизация);
Если Сумма <>0 тогда
ОстаточнаяСтоимость = Сумма;
КонецЕсли;
Если ОстаточнаяСтоимость <> 0 Тогда
Операция. НоваяПроводка();
Операция. НомерЖурнала = ОС;
Операция. СодержаниеПроводки =? (СчетНачисленияАмортизации. Забалансовый = 1, Списана баланс. ст-ть, Списана остат. ст-ть);
Операция. ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Если ПустоеЗначение(СчетЗатрат) = 0 тогда
Операция. Дебет. Счет = СчетЗатрат;
Операция. Дебет. Субконто (1, Субконто1);
Операция. Дебет. Субконто (2, Субконто2);
Операция. Дебет. Субконто (3, Субконто3);
ИначеЕсли ТипСписания = 1 Тогда
Операция. Дебет. Счет = Сч99_1;
Операция. Дебет. ПрибылиИУбытки = Перечисление. ПрибылиИУбытки. ЧрезвычайныеРасходы;
Иначе
Операция. Дебет. Счет = Сч91_2;
Операция. Дебет. ПрочиеДоходыИРасходы = СтатьяПрочихДоходовИРасходов;
КонецЕсли;
Операция. Кредит. Счет = Сч01_5;
Операция. Кредит. ОсновныеСредства = ОсновноеСредство;
Если ПустоеЗначение(Сумма) = 1 тогда
Операция. Сумма = БалансоваяСтоимость - НачисленнаяАмортизация
Иначе
Операция. Сумма = Сумма
КонецЕсли;
КонецЕсли;
…
Модуль документа ТребованиеНакладная
…
Если ПустоеЗначение(Сч) = 1 Тогда
Операция. Дебет. Счет = ТаблицаОстатков. СчетУчета;
Иначе
Операция. Дебет. Счет = Сч;
КонецЕсли;
Операция. Дебет. Субконто (1, Материал);
Операция. Дебет. Субконто (2,? (Флаг = 1, МестоХраненияПриемникГруппой, МестоХраненияПриемник));
Если ПустоеЗначение(Сч) = 1 Тогда
Операция. Кредит. Счет = ТаблицаОстатков. СчетУчета;
Иначе
Операция. Кредит. Счет = Сч;
КонецЕсли;
…
Модуль формы УслугиСтороннихОрганизаций
…
Процедура ПроверкаКнопок()
Если СС7681 = 1 Тогда
СС765 = 0;
Форма.СС765. Доступность(0);
Форма.СС7681. Доступность(1);
ИначеЕсли СС765 = 1 Тогда
СС7681 = 0;
Форма.СС765. Доступность(1);
Форма.СС7681. Доступность(0);
Иначе
СС7681 = 0;
СС765 = 0;
Форма.СС765. Доступность(1);
Форма.СС7681. Доступность(1);
КонецЕсли;
КонецПроцедуры;
…
Модуль документа ОтпускМатериаловНаСторону
…
Если ПустоеЗначение(Себест) = 1 Тогда
Операция. Сумма = СуммаСписания;
Иначе
Операция. Сумма = Себест*КоличествоОтпущено;
КонецЕсли;
…
Если ВидОтпуска = 0 Тогда // отгрузка
Операция. НомерЖурнала = МТ;
Операция. СодержаниеПроводки = Списан материал;
Операция. ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Если ПустоеЗначение(СчетЗатрат1) = 1 Тогда
Операция. Дебет. Счет = Сч91_2;
Операция. Дебет. ПрочиеДоходыИРасходы = СтатьяПрочихДоходовИРасходов;
Иначе
Операция. Дебет. Счет = СчетЗатрат1;
Операция. Дебет. Субконто (1, Субконто4);
Операция. Дебет. Субконто (2, Субконто5);
Операция. Дебет. Субконто (3, Субконто6);
КонецЕсли;
Если ПустоеЗначение(Сч) = 1 Тогда
Операция. Кредит. Счет = Материал. СубСчет10
Иначе
Операция. Кредит. Счет = Сч
КонецЕсли;
Операция. Кредит. Материалы = Материал;
Операция. Кредит. МестаХранения = МестоХранения;
Операция. Количество = КоличествоОтпущено;
Если ПустоеЗначение(Себест) = 1 Тогда
Операция. Сумма = СуммаОтгрузки;
Иначе
Операция. Сумма = Себест*КоличествоОтпущено;
КонецЕсли;
…
Если СуммаРеализации > 0 Тогда
Операция. НоваяПроводка();
Операция. НомерЖурнала = МТ;
Операция. СодержаниеПроводки = Реализ.по цене выбытия;
Операция. ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Если ПустоеЗначение(СчетЗатрат) = 1 Тогда
Операция. Дебет. Счет = СчетРасчетовСПокупателем;
Операция. Дебет. Контрагенты = Контрагент;