4.
alexolder
14
04.10.11 01:37
Сейчас в теме
Например автоматом ЭКР в расходнике (РКО)
Процедура ПриВыбореСчетаДебет()
Если КорСчет.Выбран()=0 Тогда
Возврат;
КонецЕсли;
Если КорСчет.Забалансовый=1 Тогда
Предупреждение("Корреспондирующий счет не может быть забалансовым!");
КорСчет="";
Возврат;
КонецЕсли;
Если ПустоеЗначение(ГрСчКредит)=0 Тогда
ДлГрСч=СтрДлина(СокрП(ГрСчКредит));
Если Лев(КорСчет.Код,ДлГрСч)<>СокрП(ГрСчКредит) Тогда
Предупреждение("Корреспондирующий счет не соответствует хозоперации!");
КорСчет="";
Возврат;
КонецЕсли;
КонецЕсли;
СписокКБК="";
Если глДопустимыеКБКСчета(ВыбраннаяФирма,КорСчет,КорСчет.ИсточникФинансирования,СписокКБК)=1 Тогда
Если СписокКБК.Принадлежит(ФКР)=0 Тогда
ФКР="";
КонецЕсли;
Иначе
ФКР="";
КонецЕсли;
УстановитьСубконтоКорСчета();
//Изменения
Ог = СоздатьОбъект("Справочник.ОГС"); Ксч = Лев(КорСчет.Код, 6);
Если Ксч = "205.03" Тогда Если ОГ.НайтиПоКоду(130, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "205.10" Тогда Если ОГ.НайтиПоКоду(130, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "208.04" Тогда Если ОГ.НайтиПоКоду(221, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "208.05" Тогда Если ОГ.НайтиПоКоду(222, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "208.06" Тогда Если ОГ.НайтиПоКоду(223, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "208.07" Тогда Если ОГ.НайтиПоКоду(224, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "208.08" Тогда Если ОГ.НайтиПоКоду(225, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "208.09" Тогда Если ОГ.НайтиПоКоду(226, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "208.18" Тогда Если ОГ.НайтиПоКоду(290, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "208.19" Тогда Если ОГ.НайтиПоКоду(310, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "208.22" Тогда Если ОГ.НайтиПоКоду(340, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "210.03" Тогда Если ОГ.НайтиПоКоду(130, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "302.01" Тогда Если ОГ.НайтиПоКоду(211, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "302.02" Тогда Если ОГ.НайтиПоКоду(212, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "302.03" Тогда Если ОГ.НайтиПоКоду(213, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "302.04" Тогда Если ОГ.НайтиПоКоду(221, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "302.05" Тогда Если ОГ.НайтиПоКоду(222, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "302.06" Тогда Если ОГ.НайтиПоКоду(223, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "302.07" Тогда Если ОГ.НайтиПоКоду(224, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "302.08" Тогда Если ОГ.НайтиПоКоду(225, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "302.09" Тогда Если ОГ.НайтиПоКоду(226, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "302.18" Тогда Если ОГ.НайтиПоКоду(290, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "302.19" Тогда Если ОГ.НайтиПоКоду(310, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "302.22" Тогда Если ОГ.НайтиПоКоду(340, 0) = 1 Тогда КонецЕсли;
ИначеЕсли Ксч = "401.01" Тогда Если ОГ.НайтиПоКоду(130, 0) = 1 Тогда КонецЕсли;
КонецЕсли;
ОГС = Ог.ТекущийЭлемент();
Если ПустоеЗначение(Огс) = 0 Тогда ЭКР = ОГС; ПриВыбореЭКР(); КонецЕсли;
ПриВыбореЭКР();
//КонецИзменения
ПриВыбореЭКР();
КонецПроцедуры