С
Спартак
Доброго времени суток!!!
Помогите, а то уже всю голову сломал. В-общем такая ситуация. Используем 1С 7.7 бух 504 релиз (не обновляю, ибо сильно много изменений, а к глюкам привыкли уже). Так вот... есть самописный документ, который формирует проводку Дт 73.3 Кт 62.1. Вот его обработка проведения
Сегодня главбух сказал, что, начиная с ноября документ должен делать проводку Дт 73.3 Кт 76.5. Я исправил в тестовой копии обработку проведения и протестил ее. Код:
Все замечательно работает. НО!!! Дальше делаю конфигуратор -> загрузить измененную конфигурацию. Он загружает, а при запуске выдает подряд 2 ошибки, которые на рисунке.
Подскажите, в чем может быть проблема??
Помогите, а то уже всю голову сломал. В-общем такая ситуация. Используем 1С 7.7 бух 504 релиз (не обновляю, ибо сильно много изменений, а к глюкам привыкли уже). Так вот... есть самописный документ, который формирует проводку Дт 73.3 Кт 62.1. Вот его обработка проведения
Код:
Процедура ОбработкаПроведения()
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Операция.НоваяПроводка();
Операция.Д*цензура*.Счет = СчетПоКоду("73.3",ПланыСчетов.Основной);
Операция.Д*цензура*.Сотрудники = Сотрудник;
Операция.Кредит.Счет = СчетПоКоду("62.1",ПланыСчетов.Основной);
Операция.Кредит.Контрагенты = Контрагенты;
Операция.Кредит.Договоры = Договоры;
Операция.Сумма = Сумма;
КонецЦикла;
Операция.СуммаОперации = Итог("Сумма");
Операция.Записать();
КонецПроцедуры
Код:
Процедура ОбработкаПроведения()
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Операция.НоваяПроводка();
Операция.Д*цензура*.Счет = СчетПоКоду("73.3",ПланыСчетов.Основной);
Операция.Д*цензура*.Сотрудники = Сотрудник;
Если ДатаГод (ДатаДок) > 2009 Тогда
Операция.Кредит.Счет = СчетПоКоду("76.5",ПланыСчетов.Основной);
Иначе
Если ДатаГод (ДатаДок) < 2009 Тогда
Операция.Кредит.Счет = СчетПоКоду("62.1",ПланыСчетов.Основной);
Иначе
Если ДатаМесяц (ДатаДок) > 10 Тогда
Операция.Кредит.Счет = СчетПоКоду("76.5",ПланыСчетов.Основной);
Иначе
Операция.Кредит.Счет = СчетПоКоду("62.1",ПланыСчетов.Основной);
КонецЕсли;
КонецЕсли;
КонецЕсли;
Операция.Кредит.Контрагенты = Контрагенты;
Операция.Кредит.Договоры = Договоры;
Операция.Сумма = Сумма;
КонецЦикла;
Операция.СуммаОперации = Итог("Сумма");
Операция.Записать();
КонецПроцедуры
Подскажите, в чем может быть проблема??