Конфигурирование программы "1С:Предприятие" на основе предприятия сельскохозяйственной отрасли

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

p>

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

Иначе

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

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

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

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

КонецЕсли;

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

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

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

Иначе

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

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

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

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

КонецЕсли;

Если ЦеныВДоговоре = 2 Тогда

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

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

Операция. ВалСумма = СуммаРеализации;

КонецЕсли;

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

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

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

Операция. ВалСумма = СуммаРеализации;

Иначе

Операция. Сумма = СуммаРеализации*Курс / Кратность;

КонецЕсли;

Иначе

Операция. Сумма = СуммаРеализации;

КонецЕсли;

Если ВсегоСуммоваяРазница <> 0 Тогда

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

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

Операция. СодержаниеПроводки = Суммовая разница;

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

Операция. Дебет. Счет = СчетРасчетовСПокупателем;

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

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

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

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

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

Иначе

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

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

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

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

КонецЕсли;

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

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

КонецЕсли;

КонецЕсли;

Модуль формы ОтпускМатериаловНаСторону

Форма. Закладки. ДобавитьЗначение (Счет затрат);

КонецПроцедуры // УправлениеЗакладками

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

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

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

КонецЦикла;

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

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

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

В = А + 3;

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

КонецЦикла;

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

Форма. Закладки. ТекущаяСтрока(1);

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

КонецЕсли;

Процедура ПриВыбореЗакладки (НомерЗакладки, ЗначениеЗакладки)

Если НомерЗакладки = 1 Тогда

Форма. ИспользоватьСлой (Основной, 2);

Иначе

Форма. ИспользоватьСлой (СчетЗатрат, 2);

КонецЕсли;

Если Форма. ИспользоватьЗакладки() = 1 Тогда

Если Форма. Закладки. ТекущаяСтрока() = 1 Тогда

ПриВыбореВидаОтпуска();

УправлениеВидимостьюРеквизитов();

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

КонецЕсли;

КонецЕсли;

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

Модуль отчета ОтчетПоОС

Если БИ. ПолучитьСчет (1, Сч01_1) = 1 Тогда

СчетУчета = Сч01_1;

нБаланс = БИ.СНД();

кБаланс = БИ.СКД();

оБаланс = БИ.ДО() - БИ.КО();

ИначеЕсли БИ. ПолучитьСчет (1, Сч01_0) = 1 Тогда

СчетУчета = Сч01_0;

нБаланс = БИ.СНД();

кБаланс = БИ.СКД();

оБаланс = БИ.ДО() - БИ.КО();

ИначеЕсли БИ. ПолучитьСчет (1, Сч01_2) = 1 Тогда

СчетУчета = Сч01_2;

нБаланс = БИ.СНД();

кБаланс = БИ.СКД();

оБаланс = БИ.ДО() - БИ.КО();

ИначеЕсли БИ. ПолучитьСчет (1, Сч01_3) = 1 Тогда

СчетУчета = Сч01_3;

нБаланс = БИ.СНД();

кБаланс = БИ.СКД();

оБаланс = БИ.ДО() - БИ.КО();

ИначеЕсли БИ. ПолучитьСчет (1, Сч01_4) = 1 Тогда

СчетУчета = Сч01_4;

нБаланс = БИ.СНД();

кБаланс = БИ.СКД();

оБаланс = БИ.ДО() - БИ.КО();

ИначеЕсли БИ. ПолучитьСчет (1, Сч01_6) = 1 Тогда

СчетУчета = Сч01_6;

нБаланс = БИ.СНД();

кБаланс = БИ.СКД();

оБаланс = БИ.ДО() - БИ.КО();

ИначеЕсли БИ. ПолучитьСчет (1, Сч01_7) = 1 Тогда

СчетУчета = Сч01_7;

нБаланс = БИ.СНД();

кБаланс = БИ.СКД();

оБаланс = БИ.ДО() - БИ.КО();

ИначеЕсли БИ. ПолучитьСчет (1, Сч01_8) = 1 Тогда

СчетУчета = Сч01_8;

нБаланс = БИ.СНД();

кБаланс = БИ.СКД();

оБаланс = БИ.ДО() - БИ.КО();

ИначеЕсли БИ. ПолучитьСчет (1, Сч01_9) = 1 Тогда

СчетУчета = Сч01_9;

нБаланс = БИ.СНД();

кБаланс = БИ.СКД();

оБаланс = БИ.ДО() - БИ.КО();

Иначе

Модуль отчета АктСверки

Документ = Опер. Документ;

Если ПустоеЗначение (СокрЛП(СтрЗаменить (СтрЗаменить (СтрЗаменить (ПервичныйДокумент,., "),,, "), №,))) = 0 Тогда

ПервичныйДокумент = СокрЛП (Опер. ПервичныйДокумент);

Если ПустоеЗначение (Опер. СодержаниеПроводки)=0 тогда // для выписок и бух. справок

ПервичныйДокумент = СокрЛП (Опер. СодержаниеПроводки);

ДатаДок = СокрЛП (Лев(Опер. ПервичныйДокумент, Найти (Опер. ПервичныйДокумент,,) - 1));

ДлинаСтр = СтрДлина (Опер. ПервичныйДокумент);

НомерДок = СокрЛП (Прав(Опер. ПервичныйДокумент, ДлинаСтр-Найти (Опер. ПервичныйДокумент, №)));

Если Лев (Опер. Документ, Найти (Опер. Документ, ") - 1) <> Выписка тогда

ПервичныйДокумент = ПервичныйДокумент +. + НомерДок + от + ДатаДок +.; // для б.с.

Иначе

ПервичныйДокумент = ПервичныйДокумент +. П/п № + НомерДок + от + ДатаДок +.; // для выписок

КонецЕсли;

КонецЕсли;

Если СокрЛП (Опер. Содержание) = Отгрузка товаров (продукции) тогда // для документов по ?/p>