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